I have an SQLRPGLE that performs the following stmt
This code is executed in an internally defined sub procedure and the program is compiled as DFTACTGRP(*No)
when the program ends,a this file and a logical over it are left open
It also leaves a file open named QSYS/QADBXRMTNM
How can I get the program to close these CUSMST and CUSMSTAG at the end abd what is QADBXRMTNM ?
Code:
Exec Sql Select Count(*) into :wkCnt from Cusmst where Cmcucd = :OldCode;
This code is executed in an internally defined sub procedure and the program is compiled as DFTACTGRP(*No)
when the program ends,a this file and a logical over it are left open
Code:
File Library Device Scope Activation QDUI132 QSYS QPADEV0002 *ACTGRPDFN *DFTACTGRP QADBXRMTNM QSYS QADBXRMTNM *JOB CUSMST GWDATA CUSMST *ACTGRPDFN QILE CUSMSTAG GWDATA CUSMSTAG *ACTGRPDFN QILE QDUODSPF QPDA QPADEV0002 *ACTGRPDFN *DFTACTGRP QDDSPOF QSYS QPADEV0002 *ACTGRPDFN *DFTACTGRP
It also leaves a file open named QSYS/QADBXRMTNM
How can I get the program to close these CUSMST and CUSMSTAG at the end abd what is QADBXRMTNM ?
Comment