Add SQL_SKEL2
This commit is contained in:
@@ -0,0 +1,10 @@
|
||||
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
|
||||
Reference in New Issue
Block a user