Code:
-
- PGM
- DCL VAR(&MSG) TYPE(*CHAR) LEN(100)
- DCL VAR(&ZIP) TYPE(*CHAR) LEN( 6)
- DCL VAR(&BAL) TYPE(*CHAR) LEN(10)
- DCL VAR(&SPC) TYPE(*CHAR) LEN( 5)
- DCLF FILE(QTEMP/QCUSTCDT1)
- /* create SQL VIEW in QTEMP ... */
- RUNSQL SQL('CREATE OR REPLACE VIEW QTEMP/QCUSTCDT1 +
- AS SELECT CUSNUM, LSTNAM, INIT, STREET, +
- CITY, STATE, ZIPCOD, CDTLMT, CHGCOD, +
- BALDUE, CDTDUE FROM QIWS/QCUSTCDT') +
- COMMIT(*NONE)
- OVRDBF FILE(QCUSTCDT1) TOFILE(QTEMP/QCUSTCDT1) +
- MBR(*FIRST) SECURE(*YES) OVRSCOPE(*JOB) +
- SHARE(*YES) SEQONLY(*YES)
- /* create Open Data Path (ODP) for result set ... */
- OPNQRYF FILE((QTEMP/QCUSTCDT1 *FIRST *ONLY)) +
- OPTION(*INP) KEYFLD((STATE *ASCEND) (CITY +
- *ASCEND) (LSTNAM *ASCEND))
- READ:
- RCVF
- MONMSG MSGID(CPF0864) EXEC(GOTO EOF)
- /* echo the data to the session and job log ... */
- CHGVAR VAR(&ZIP) VALUE(&ZIPCOD)
- CHGVAR VAR(&BAL) VALUE(&BALDUE)
- CHGVAR VAR(&MSG) VALUE(&LSTNAM *TCAT &INIT *TCAT &SPC +
- *TCAT &STREET *TCAT &SPC *TCAT &CITY *TCAT &SPC +
- *TCAT &STATE *TCAT &SPC *TCAT &ZIP *TCAT &SPC *TCAT &BAL)
- SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
- MSGDTA(&MSG) TOPGMQ(*EXT) MSGTYPE(*STATUS)
- SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
- MSGDTA(&MSG) TOPGMQ(*PRV (*)) MSGTYPE(*COMP)
- /* repeat until EOF ... */
- GOTO READ
- EOF:
- CLOF OPNID(QCUSTCDT1)
- DLTOVR FILE(QCUSTCDT1) LVL(*JOB)
- /* exit */
- RETURN
- ENDPGM
-
-
|
|