ca.portal.admin

Journal Consolidation

Discussion created by ca.portal.admin on Oct 17, 2008
Latest reply on Oct 17, 2008 by ca.portal.admin
Does anyone have a program that takes the output of an IDCAMS LISTC
command and parses it to create jcl to consolidate 'hourly' journals
into a single daily file? Are you willing to share it?
=20
Tia,
=20
Bob
=20
Bob Wiklund
Tiburon Technologies
623 594-6022
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Journal Consolidation
"A small snipit of a REXX/CLIST we use here:
PROC 1 CVID
CONTROL NOFLUSH MSG LIST

/* HOW ABOUT AN ERROR ROUTINE */

ALLOC DD(LCOUT) DSN('ADBAPRD.IDMSBKCL.LC.&CVID..DATA')
ALLOC DD(LCTOUT) DSN('ADBAPRD.IDMSBKCL.LCT.&CVID..DATA')
LISTCAT ENT('ADBAPRD.&CVID..AJNL') GDG ALL OUT(LCOUT)
IF &LASTCC NE 0 THEN GOTO DONE
LISTCAT ENT('ADBAPRD.&CVID..CTAPE.AJNL') GDG ALL OUT(LCTOUT)
IF &LASTCC NE 0 THEN GOTO DONE

/* MAY NEED A FREE DD IN HERE */

ISPEXEC VPUT (CVID) PROFILE

COPY 'ADBAPRD.IDMSBKCL.LC.&CVID..DATA' +
'ADBAPRD.IDMSBKCL.DEL.&CVID..DATA' +
RECFM(FB) LRECL(80) REBLOCK(3120)
COPY 'ADBAPRD.IDMSBKCL.LC.&CVID..DATA' +
'ADBAPRD.IDMSBKCL.DD.&CVID..DATA' +
RECFM(FB) LRECL(80) REBLOCK(3120)
COPY 'ADBAPRD.IDMSBKCL.LCT.&CVID..DATA' +
'ADBAPRD.IDMSBKCL.DEL.&CVID..TDATA' +
RECFM(FB) LRECL(80) REBLOCK(3120)
COPY 'ADBAPRD.IDMSBKCL.LCT.&CVID..DATA' +
'ADBAPRD.IDMSBKCL.TDD.&CVID..DATA' +
RECFM(FB) LRECL(80) REBLOCK(3120)

/* EDIT THE LISTC OUTPUT TO PRODUCE DELETE STMTS */
ISPEXEC EDIT DATASET('ADBAPRD.IDMSBKCL.DEL.&CVID..DATA') +
MACRO(AJNLDLET)
ISPEXEC EDIT DATASET('ADBAPRD.IDMSBKCL.DEL.&CVID..TDATA') +
MACRO(AJNLDLTT)

/* EDIT THE LISTC OUTPUT TO PRODUCE DD STMTS */
ISPEXEC EDIT DATASET('ADBAPRD.IDMSBKCL.DD.&CVID..DATA') +
MACRO(AJNLDDST)
ISPEXEC EDIT DATASET('ADBAPRD.IDMSBKCL.TDD.&CVID..DATA') +
MACRO(AJNLDDTT)

DONE: +
EXIT CODE(&LASTCC)

I didn't include the edit macros here, and there's a follow-on step that
takes the output files from this step and merges them with template
files to create the JCL procedure that's used by the consolidation job
that runs after this.

I didn't write this, so not sure if it is useful. It is being used.

Roy

Outcomes