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