extracting qalifier from dataset into output file

useit · Active User Joined: 05 Oct 2006 Posts: 152

hi all,

how can we extract dsn qualifier into output file?

say for examples. i have a pds names as below.

expat · Posted: Thu Jun 27, 2013 4:22 pm

SORT, REXX, COBOL ............. etc etc

Pandora-Box · Posted: Thu Jun 27, 2013 4:25 pm

How do you get the pds names or from where you get the pds names?

useit · Active User Joined: 05 Oct 2006 Posts: 152

thanks.those pds names are standard and fixed.

useit · Active User Joined: 05 Oct 2006 Posts: 152

i searched in the forum but i did not get any similar eamples.
i never worked on rexx. if you can tel me any similar examplesusing sort i would be really thankful to you

Regds,
useit

Pandora-Box · Posted: Thu Jun 27, 2013 4:48 pm

Useit,

So you need to retrieve the pds names through based on some crieria and then pick only 6th and 7th byte to output file?

useit · Active User Joined: 05 Oct 2006 Posts: 152

yes pandora,
your understanding is right:). pick only 6th and 7th byte to output file

Pandora-Box · Posted: Thu Jun 27, 2013 5:42 pm

Use Rexx using ISPF services to retrieve PDS names and then store the 6th and 7th byte of second qualifier in stem variable
Write the stem variable to output file

useit · Active User Joined: 05 Oct 2006 Posts: 152

i have never worked on rex. how can this be done using sort? i

dick scherrer · Posted: Thu Jun 27, 2013 8:14 pm

Hello,

Show an example of the input file that has the dataset names and explain how this dataset was generated.

Once the file of dataset names has been build, the Sort shoule be a COPY and reformat the output as you want.

gcicchet · Posted: Fri Jun 28, 2013 6:22 am

Hi,

does this help

Pandora-Box · Posted: Fri Jun 28, 2013 7:05 am

Gerry,

Do we really need parse here?

Bill O'Boyle · Posted: Fri Jun 28, 2013 7:19 am

Call an Assembler sub-program and issue a RDJFCB Macro. The DSN can be found in the first 44-bytes of the JFCB area. Define the DCB with a fake DD name and pass the "real" DD name (from the JCL) to the sub-program as a parameter as well as a 44-byte area which will hold the DSN from the JFCB area, passed back to the caller. Each file needs to be closed to the sub-program (a RDJFCB requirement).

The sub-program's RMODE must be 24. AMODE can be either 24 or 31.

HTH....

gcicchet · Posted: Fri Jun 28, 2013 7:43 am

Hi Pandora,

possibly not but not all qualifiers will always be the same length.

Gerry

Bill Woodger · Posted: Fri Jun 28, 2013 11:57 am

For a specific solution with exactly the form of data shown, PARSE would not be needed.

useit has seen enough SORT solutions to be able to do the simple case, so I'm guessing more complexity, so I'd go for PARSE also.

With IFTHEN=WHEN=(INIT the OUTREC would not be needed.

To make things more flexible, enrico's technique of "right justification" would get the last two digits of the 2nd qualifier always in the same position, no matter how long the qualifier. The only "tricky" part would be the length-one qualifier :-)