Improve & cleanup

Improved images, cleaned up code, revised documentation.
2020-10-19 15:02:55 -04:00
parent 2dc0714b39
commit 066e786d72
12 changed files with 474 additions and 549 deletions
@@ -0,0 +1,18 @@
+             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