11 lines
295 B
Plaintext
11 lines
295 B
Plaintext
PGM
|
|
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))
|
|
CALL PGM(*LIBL/SQL_SKEL) PARM('CA')
|
|
RETURN
|
|
ERROR:
|
|
MOVPGMMSG MSGTYPE(*INFO)
|
|
MOVPGMMSG MSGTYPE(*COMP)
|
|
MOVPGMMSG MSGTYPE(*DIAG)
|
|
RSNESCMSG
|
|
ENDPGM
|