Filter
Top Products
Cᑍ
C EVAL CMD_STR = DLTDQ
C EVAL LEN_STR = %SIZE(DLTDQ)
Cᑍ
C EXSR EXEC_CMD
Cᑍ
Cᑍ Delete the library
Cᑍ
C EVAL CMD_STR = DLTLIB
C EVAL LEN_STR = %SIZE(DLTLIB)
Cᑍ
C EXSR EXEC_CMD
Cᑍ
C EVAL ᑍINLR = '1'
C RETURN
Cᑍ
Cᑍ End of MAINLINE
Cᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍ
C EXEC_CMD BEGSR
Cᑍ
Cᑍ Process the requested CL command
Cᑍ
C CALL 'QCAPCMD'
C PARM CMD_STR
C PARM LEN_STR
C PARM QCAP1
C PARM CAP1_SZ
C PARM 'CPOP1' FORMAT 8
C PARM RCVVAR 1
C PARM RCVVAR_SZ
C PARM RCVVAR_SZ
C PARM QUSEC
Cᑍ
Cᑍ If an exception occurs, the API returns the exception in the
Cᑍ error code parameter. The bytes available field is set to
Cᑍ zero if no exception occurs and greater than zero if an
Cᑍ exception does occur.
Cᑍ
C IF QUSBAVL >
C EVAL API_NAME = 'QCAPCMD'
C EXSR ERRCOD
C ENDIF
C ENDSR
Cᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍ
C ERRCOD BEGSR
Cᑍ
Cᑍ Process errors returned from the API.
Cᑍ
Cᑍ If first error found, then open QPRINT ᑍPRTF
Cᑍ
C IF FIRST_ERR = ''
C OPEN QPRINT
C EVAL FIRST_ERR = '1'
C ENDIF
B-174 System API Programming V4R1