19 lines
727 B
Plaintext
19 lines
727 B
Plaintext
PGM
|
|
CHKOBJ OBJ(CUSTMAST) OBJTYPE(*FILE)
|
|
MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(SUBMIT))
|
|
|
|
ALCOBJ OBJ((CUSTMAST *FILE *EXCLRD)) WAIT(5) +
|
|
CONFLICT(*RQSRLS)
|
|
MONMSG MSGID(CPF1002) EXEC(DO)
|
|
SNDMSG MSG('Cannot allocate CUSTMAST') +
|
|
TOUSR(*REQUESTER)
|
|
RETURN
|
|
ENDDO
|
|
|
|
DLCOBJ OBJ((CUSTMAST *FILE *EXCLRD))
|
|
SUBMIT: SBMJOB CMD(RUNSQLSTM +
|
|
SRCSTMF('/home/LENNONS/GITHUB/5250_Subfile/+
|
|
custmast.sql') COMMIT(*NONE) ERRLVL(40)) +
|
|
JOB(SL_LOAD)
|
|
ENDPGM
|