Dear Expert
Psuedo
STRJRNPF FILE(*LIBL/FILE) JRN(HLIB/JRN)
STRCMTCTL LCKLVL(*CHG) CMTSCOPE(*JOB)
CALL PROGRAM
ENDJRNPF FILE(*LIBL/FILE) JRN(HLIB/JRN)
ENDCMTCTL
These code fail to end the journal...
So i cant endcmtctl...
MSG prompted: CPF70A6
any 1 meet this problem before? and any solution?
cheers
Psuedo
STRJRNPF FILE(*LIBL/FILE) JRN(HLIB/JRN)
STRCMTCTL LCKLVL(*CHG) CMTSCOPE(*JOB)
CALL PROGRAM
ENDJRNPF FILE(*LIBL/FILE) JRN(HLIB/JRN)
ENDCMTCTL
These code fail to end the journal...
So i cant endcmtctl...
MSG prompted: CPF70A6
any 1 meet this problem before? and any solution?
cheers
Comment