Add API_SQL

2021-08-24 15:29:30 -04:00
parent 83cd96240c
commit 82180c4408
16 changed files with 525 additions and 7 deletions
@@ -0,0 +1,10 @@
+             PGM
+
+/* Display locks after running T9ALLOCMNY              */
+
+             DCL        VAR(&MSG) TYPE(*CHAR) LEN(200)
+             GETOBJUSR  OBJECT(QIWS/QCUSTCDT) TYPE(*FILE) +
+                          MSGFLD(&MSG) RETFILE(*YES)
+             SNDMSG     MSG(&MSG) TOUSR(*REQUESTER)
+             QRY        FILE(QTEMP/GETOBJUP)
+             ENDPGM