Touched objects:
- ⛏️
BANKING.MODULE:qrpglesrc/banking.sqlrpgle - ⚒️
DEPTS.PGM:qrpglesrc/depts.pgm.sqlrpgle - ⛏️
UTILS.MODULE:qrpglesrc/utils.sqlrpgle - 📦
UTILS.SRVPGM:qsrvsrc/utils.bnd
| IDENTIFICATION DIVISION. | |
| PROGRAM-ID. PGMNAME. | |
| DATA DIVISION. | |
| LINKAGE SECTION. | |
| 01 base. | |
| 05 a PIC X(5). | |
| 05 b PIC X(10). | |
| * Output struct might go here | |
| WORKING-STORAGE SECTION. |
| > start | |
| > node --env-file=.env index.js odbc p 50 | |
| Running.. | |
| --------------------------------- | |
| node-odbc - Pool-Promise.all - 50 queries |
| mkdir -p /QIBM/UserData/IBMiDebugService/certs | |
| chmod 755 /QIBM/UserData/IBMiDebugService/certs | |
| rm -f /QIBM/UserData/IBMiDebugService/certs/debug_service.pfx /QIBM/UserData/IBMiDebugService/certs/debug_service.crt | |
| export MY_JAVA_HOME="/QOpenSys/QIBM/ProdData/JavaVM/jdk11/64bit" | |
| HNAME=$(hostname) | |
| HNAMES=$(hostname -s) | |
| # Dns lookup to get the IP address | |
| IP=$(nslookup $(hostname) | grep Address | tail -n 1 | awk '{print $2}') |