             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
