View previous topic :: View next topic |
Author |
Message |
gauthaman_mech Beginner
Joined: 10 Apr 2005 Posts: 12 Topics: 5 Location: India
|
Posted: Sat Aug 27, 2005 3:04 am Post subject: Need information regarding PGM=SELECT |
|
|
Hi team
In my shop I cam across a JCL which uses a utility by the name select. I wanted to know as what is the use of this utility and information related to it.
It JCL is as follows
Code: |
//STEPXX EXEC PGM=SELECT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=A.B.C.D,DISP=SHR
//SYSUT2 DD X.Y.Z,DISP=(OLD,CATLG)
////SYSIN DD *
MAXDEFS 2
A1 133 4 EQ EB12
A2 133 4 EQ EQ01
*** A1 *** A2 ***
|
|
|
Back to top |
|
|
Arun Tomer Beginner
Joined: 24 Aug 2005 Posts: 3 Topics: 0 Location: Global !!!
|
Posted: Wed Aug 31, 2005 5:34 am Post subject: |
|
|
Hi...Looks like this may be some utility program written and customized in your shop. I do not think there us any general utility like this. Arun. |
|
Back to top |
|
|
dtf Beginner
Joined: 10 Dec 2004 Posts: 110 Topics: 8 Location: Colorado USA
|
Posted: Wed Aug 31, 2005 1:07 pm Post subject: |
|
|
I too have never heard of this utility, however it looks a little like an old 4gl called DYL260. Just as a guess I'd say that this program is selecting records from file A.B.C.D and writing them to file X.Y.Z.
Using an educated guess, I further surmise that it is potentially looking at an offset of 133 in the input record, for a length of 4 bytes and selecting records that contain either 'EB12' or 'EQ01' at that offset. Might take a look at the output file, and see if that is in fact the case. The EQ probably stands for EQUAL, so it is possible that it also uses "LT", "LE", "GT", "GE" and "NE".
It is very likely that the parameter coding is positional, meaning that the information has to be in a specific column.
________
K1200S |
|
Back to top |
|
|
|
|