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:
  1.     PGM  PARM(&LIB &FIL &MBR)
  2.  
  3.  /* parameters */
  4.     DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
  5.     DCL VAR(&FIL) TYPE(*CHAR) LEN(10)
  6.     DCL VAR(&MBR) TYPE(*CHAR) LEN(10)
  7.  
  8.  /* files */
  9.     DCLF   FILE(QCLSRC1) OPNID(QCLSRC1)
  10.     DCLF   FILE(QCLSRC2) OPNID(QCLSRC2)
  11.  
  12.  /* override first file ... */
  13.     OVRDBF  FILE(QCLSRC1) TOFILE(&LIB/&FIL) MBR(&MBR)
  14.  /* get data ... */
  15.  READ1:
  16.     RCVF    OPNID(QCLSRC1)
  17.     MONMSG  MSGID(CPF0864) EXEC(GOTO EOF1)
  18.  /* send msg ... */
  19.     SNDPGMMSG  MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
  20.                  MSGDTA(&QCLSRC1_SRCDTA) TOPGMQ(*PRV (*)) +
  21.                  MSGTYPE(*DIAG)
  22.     GOTO  READ1
  23.  EOF1:
  24.  
  25.  /* override second file ... */
  26.     OVRDBF     FILE(QCLSRC2) TOFILE(&LIB/&FIL) MBR(&MBR)
  27.  /* get data ... */
  28.  READ2:
  29.     RCVF    OPNID(QCLSRC2)
  30.     MONMSG  MSGID(CPF0864) EXEC(GOTO EOF2)
  31.  /* send msg ... */
  32.     SNDPGMMSG  MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
  33.                  MSGDTA(&QCLSRC2_SRCDTA) TOPGMQ(*PRV (*)) +
  34.                  MSGTYPE(*DIAG)
  35.     GOTO  READ2
  36.  EOF2:
  37.  
  38.  /* done ... */
  39.     RETURN
  40.  
  41.  ENDPGM
  42.  
© 2004-2019 by midrange.com generated in 0.008s valid xhtml & css