IDDU on the AS/400 carried over a problem inherent on the S/36. The user has no control over the audit log that is printed when updating a database file. The CL program shown in 2a, along with the prompt display file (2b), make it possible to override this problem with a user option.
IDDU on the AS/400 carried over a problem inherent on the S/36. The user has no control over the audit log that is printed when updating a database file. The CL program shown in Figure 2a, along with the prompt display file (Figure 2b), make it possible to override this problem with a user option.
Ted May Jefferson City, Missouri
TechTalk: No More IDDU Audit Logs
Figure 2A CL program MAY001CL to override IDDU printouts
Figure 2a: Program to Override IDDU Printouts MAY001CL: PGM DCLF FILE(IDDUPMPT) RETRY: SNDRCVF RCDFMT(IDDUCALL) IF COND(&ANSWER *EQ 'N') THEN(GOTO + CMDLBL(NOCANCEL)) SNDRCVF RCDFMT(IDDUNO) IF COND(&IN03) THEN(RETURN) IF COND(&IN12) THEN(GOTO CMDLBL(RETRY)) OVRPRTF FILE(QPDZDTALOG) HOLD(*YES) NOCANCEL: WRKDBFIDD IF COND(&ANSWER *EQ 'N') THEN(RETURN) DLTSPLF FILE(QPDZDTALOG) SPLNBR(*LAST) MONMSG MSGID(CPF3303 CPF3309) ENDPGM
TechTalk: No More IDDU Audit Logs
Figure 2B Display file used by program MAY001CL
Figure 2b: Display File Used by Program MAY001CL ....1.... ....2.... ....3.... ....4.... ....5.... ....6.... ....7.... ....8 A DSPSIZ(24 80 *DS3) A R IDDUCALL A BLINK A 1 28'IDDU PRINT OPTIONS' A DSPATR(HI) A 4 3'Do you wish to cancel the audit lo- A g which IDDU prints each time' A 5 3'you enter or update records in a f- A ile?' A 8 3'Your option:' A ANSWER 1A B 8 17DSPATR(HI) A VALUES('Y' 'N') A 8 23'Y=Yes, N=No' A R IDDUNO A CF03(03 'EXIT') A CF12(12 'CANCEL') A ALARM A SLNO(12) A CLRL(*NO) A 1 3'You have selected not to print the- A audit log. It will be canceled.' A DSPATR(HI) A 12 2'F3=Exit F12=Cancel Enter=Conti- A nue' ....1.... ....2.... ....3.... ....4.... ....5.... ....6.... ....7.... ....8
LATEST COMMENTS
MC Press Online