Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
Posted: Thu Jan 12, 2006 5:01 am Post subject: Utility To Extract Information from Load Library
Hi all,
In my shop, we are using an in-house version management tool, and the load that is generated by this tool contains a record which lists out the program name, its level (version), all copybooks used in the program and their version etc....See below for a sample.
[code:1:99484f5e5e]
********************************* Top of Data **********************************
.
Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
Posted: Thu Jan 12, 2006 6:19 am Post subject:
Exactly....I thought the same but didn't know how to accomplish that using Fileaid. I went through the fileaid manual, but couldn't find the exact command to use.
I would appreciate if you can help me out in this. The output written via REXX looks different. But its okay, If I can get an output like this.
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
Posted: Thu Jan 12, 2006 9:30 am Post subject:
Phantom,
you did not answer my question as to what is the purpose of converting the FB file to VB file stripping the trailing low-values (x'00'). If you wanted to create a VB file from a FB file , then simply supply the VB DCB parameters to the output dataset in fileaid step itself.
Code:
//STEP0100 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=xxxxxxxx.SYS1.PAR.PHASEII,
// DISP=SHR
//DD01O DD DSN=&&T1,DISP=(,PASS),
// SPACE=(TRK,(90,80),RLSE),
// DCB=(RECFM=VB,LRECL=(Lrecl+4),BLKSIZE=0)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
$$DD01 COPY IF=(1,0,C'[ST@=(TOP OF STABLE PARTS LIST)]'),
ORIF=(1,0,C'[ST@=(END OF STABLE PARTS LIST)]')
/*
Hope this helps...
Cheers
Kolusu _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
Posted: Fri Jan 13, 2006 4:30 am Post subject:
Kolusu,
I am extremely sorry. I misread your statement.
Quote:
Also you can call fileaid from rexx itself there by avoiding the first 2 steps.
I don't know what happened to me last night....This is what went into my mind when I read that line "You can do the report generation part in Fileaid itself, instead of Rexx" !!!...
Ok!!!. I tried your code and it worked absolutely fine. Just as I expected. Thanks a lot Kolusu.
Quote:
you did not answer my question as to what is the purpose of converting the FB file to VB file stripping the trailing low-values (x'00').
I am doing this because, in few cases, the Element list line breaks in between and continues in the next line. For example see below.
If you look at the first line, the Tag for copybook "FUND" ends abnormally after the "/" and the rest of the line is filled with Low-values.
[code:1:aae3f31421]
BROWSE XXXXXXX.YYYY.ZZZ.NNNNNNN.PGMMMMMM Line 00000606 Col 01021
Command ===> Scroll ===> CSR
----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0
0/][/CPY/AHBT /MPARIS /L 0/][/CPY/FUND /MPARIS /....................
****** END OF REPORT ****** PARIS SYSTEM TIME: SYSTEM DATE:
.q.......
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
