CL - To get record count for all the Physical Files (PF) in a library - System i Blogger
Home > IT Blogs > System i Blogger > CL - To get record count for all the Physical Files (PF) in a library
>>VIEW ALL POSTS  

System i Blogger

« CL - Convert a date to julian in CLP
Survey :: Military Living in Japan - I need your help »
Jan 9 2009   5:14PM GMT

CL - To get record count for all the Physical Files (PF) in a library



Posted by: David Vasta

CLLE - To get record count for all the PF’s in library
Posted By: Nanda Kishore Perisetla Contact

PLAIN TEXT
CODE:
  1. START:      PGM        PARM(&LIB)
  2.              DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
  3.              DCL        VAR(&PGM) TYPE(*CHAR) LEN(10)
  4.              DCL        VAR(&CNT) TYPE(*DEC) LEN(10)
  5.              DCLF       FILE(CNTFILE)
  6.              DLTF       FILE(QTEMP/COUNTF)
  7.              MONMSG     MSGID(CPF0000)
  8.              DLTF       FILE(QTEMP/RECCNT)
  9.              MONMSG     MSGID(CPF0000)
  10.              CRTPF      FILE(QTEMP/COUNTF) LVLCHK(*NO)
  11.              MONMSG     MSGID(CPF7302)
  12.              DSPOBJD    OBJ(&LIB/*ALL) OBJTYPE(*FILE) DETAIL(*FULL) +
  13.                           OUTPUT(*OUTFILE) OUTFILE(QTEMP/CNTFILE)
  14.              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(EOF))
  15. LOOP:       RCVF
  16.              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))
  17.              OVRDBF     FILE(RECCNT) SHARE(*YES)
  18.              IF         COND((&ODOBAT *EQ ‘PF’) *OR (&ODOBAT *EQ +
  19.                           ‘PF38′)) THEN(DO)
  20.              DSPFD      FILE(&LIB/&ODOBNM) TYPE(*MBR) +
  21.                           OUTPUT(*OUTFILE) FILEATR(*ALL) +
  22.                           OUTFILE(QTEMP/RECCNT) OUTMBR(*FIRST *ADD)
  23.              MONMSG     MSGID(CPF9999) EXEC(GOTO CMDLBL(EOF))
  24.              ENDDO
  25.              GOTO LOOP
  26. EOF:        DLTOVR     FILE(RECCNT)
  27.              CALL       PGM(*LIBL/RCDCNTRPG)
  28. END:        ENDPGM

This bit of CL s very useful and is a good example.

AddThis Social Bookmark Button     Comment     RSS Feed     Email a friend

Comment on this Post


You must be logged-in to post a comment. Log-in/Register