midrange.com code scratchpad |
Name:
TSTREAD.CLP
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
02/10/2015 02:56:35 pm
|
IP:
Logged
|
|
Description:
CL Program to demonstrate reading the same member twice from a CL program at V5R3 or V5R4 (or above).
|
Code:
- PGM PARM(&LIB &FIL &MBR)
-
- /* parameters */
- DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
- DCL VAR(&FIL) TYPE(*CHAR) LEN(10)
- DCL VAR(&MBR) TYPE(*CHAR) LEN(10)
-
- /* files */
- DCLF FILE(QCLSRC1) OPNID(QCLSRC1)
- DCLF FILE(QCLSRC2) OPNID(QCLSRC2)
-
- /* override first file ... */
- OVRDBF FILE(QCLSRC1) TOFILE(&LIB/&FIL) MBR(&MBR)
- /* get data ... */
- READ1:
- RCVF OPNID(QCLSRC1)
- MONMSG MSGID(CPF0864) EXEC(GOTO EOF1)
- /* send msg ... */
- SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
- MSGDTA(&QCLSRC1_SRCDTA) TOPGMQ(*PRV (*)) +
- MSGTYPE(*DIAG)
- GOTO READ1
- EOF1:
-
- /* override second file ... */
- OVRDBF FILE(QCLSRC2) TOFILE(&LIB/&FIL) MBR(&MBR)
- /* get data ... */
- READ2:
- RCVF OPNID(QCLSRC2)
- MONMSG MSGID(CPF0864) EXEC(GOTO EOF2)
- /* send msg ... */
- SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
- MSGDTA(&QCLSRC2_SRCDTA) TOPGMQ(*PRV (*)) +
- MSGTYPE(*DIAG)
- GOTO READ2
- EOF2:
-
- /* done ... */
- RETURN
-
- ENDPGM
-
|
|
|