CA IDMS

IDMS IPCS Report Writer 

07-20-2012 02:18 PM

This is the IDMS IPCS Report Writer. It used to be referred to as the IDMSIPCS CLISTs. It is now a REXX based tool.

This file is a tersed PDS. It named with a ZIP suffix because the upload process will not allow an unsuffixed file.

DO NOT USE ANY ZIP TOOL ON THIS FILE!

Upload it to the mainframe as binary and then use the IBM TERSE utility to unpack it. It will create a PDS which can then be used as is or merged into an existing REXX library.

Current update date is March 20, 2017. Internally it is version 1.06. The checksum for this file is 8C381379.

 

Well, as luck will have it, someone asked for a slight processing change shortly after the new version was uploaded.

Since it was a pretty simple change, I have changed the way the NOCICS parameter is identified.

It is now processed in a method which allows one to insert the NOCICS parameter into the @GROUPS@ member.

 

A few issues were found that I did not found in my testing.
They have been corrected in this version.

Statistics
0 Favorited
1 Views
1 Files
0 Shares
0 Downloads
Attachment(s)
zip file
IDMSREXX.TERSE.zip   1.09MB   1 version
Uploaded - 05-29-2019

Tags and Keywords

Comments

08-03-2012 12:11 PM

This baby rocks. Thanks for the great work Chuck. FWIW we managed to get one small bug in processing a local mode dump fixed which I think Chuck will have up in his next update.

07-22-2012 09:03 PM

Here's the JCL and file characteristics for pre-allocated files - worked fine for me - good luck - cheers - Gary

//??????$Z JOB (DB),'UN-ZIP',MSGCLASS=Y,
// CLASS=T,NOTIFY=??????,MSGLEVEL=(1,1)
//*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//TRSMAIN EXEC PGM=AMATERSE,PARM='UNPACK'
//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=0,RECFM=FBA)
//SYSIN DD *
//SYSUT1 DD DSN=??????.IDMSIPCS.ZIP,DISP=OLD
//SYSUT2 DD DSN=??????.IDMSIPCS.REXX,DISP=OLD

Allocate New Data Set
Data Set Name . . . IDMSIPCS.ZIP <--- Upload distribution to this file as BINARY
Space units . . . . . TRACK
Primary quantity . . 20 (In above units)
Secondary quantity 5 (In above units)
Directory blocks . . 0 (Zero for sequential data set) *
Record format . . . . FB
Record length . . . . 1024
Block size . . . . . 27648

Allocate New Data Set
Data Set Name . . . IDMSIPCS.REXX <--- PDS that will be UNPACKED
Space units . . . . . TRACK
Primary quantity . . 100 (In above units)
Secondary quantity 10 (In above units)
Directory blocks . . 25 (Zero for sequential data set) *
Record format . . . . FB
Record length . . . . 80
Block size . . . . . 0
Data set name type PDS

Related Entries and Links

No Related Resource entered.