MVSFORUMS.com

[wdnealis]

Is there an assembler function to pass GDG leve to COBOL? I need to find or access the current level of a GDG from within COBOL.

[kolusu]

wdnealis,

Why do you need assembler ? You can call IDCAMS from COBOL and you can read output from IDCAMS and get the current gdg version.

There is Sort solution also. check this link

http://www.mvsforums.com/helpboards/viewtopic.php?p=621#621

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[wdnealis]

ok, I'll this, and get back

thanks.

[semigeezer]

If you want an assembler solution, issue an SVC 26 (LOCATE) on the dsn(0) name and it will return the real dsname. Its only a few lines of assembler. See the REALNAME rexx function written in assembler for an example.

[wdnealis]

So a call to IDCAM will produce the same results as this?

[kolusu]

[wdnealis]

I used IDCAMS to produce the latest GDG, but there was other information in the file created, so I tried to SORT the output from the SYSPRINT; but I got a RC=16 (RDW NOT INCLUDED). When I searched the site I noticed that you need 4 bytes for the VB files, but when I added I still got the RC=16. What is the issue with this syntax?

[kolusu]

wdnealis,

Lake carefully the JCL posted by me. The first step to get the listcat information is using IKJEFT01 pgm and not IDCAMS program.

if you are using IDCAMS then change your sort sysin cards to the following

[wdnealis]

I noticed that you used IKJEFT01, and the LISTCAT worked. I also tried IDCAMS with the changes listed, but with both IKJEFT01 and DICAMS there was a RC=16 on the SORT(potential insufficient use of INREC).

__________________________________________

IDCAMS
[code:1:1c3234f044]
*************************** Top of Data ******************************
//IDCMSORT JOB (XXXXXXXXXXX,XXXX),'IDCAMS SORT',MSGCLASS=X,REGION=XX,
// CLASS=0,NOTIFY=XXXX
/*JOBPARM LINES=9999
//STEP01 EXEC PGM=IDCAMS,DYNAMNBR=1
//SYSPRINT DD DSN=MY.CURRENT.GDG,
// DISP=SHR
//* DISP=(NEW,CATLG,DELETE),
//* SPACE=(TRK,(1,1),RLSE),
//* DCB=(RECFM=VBA,LRECL=125,BLKSIZE=27998)
//SYSIN DD *
LISTCAT ENTRIES(

[German Castillo]

The problem seems to be associated with the DCB of your output dataset. Check the Definition of your sysout, your sort program is trying to write a dataset with 80 as the LRECL, you may either force the real lrecl in your sort step or better yet create a whole new dataset, letting the sort program to do so in your behalf. This are the quick an easy ways, however, several other options are also possible. Also take into consideration that in the way you are creating your sortout dataset it has to be VBA. You do not seem to be doing anything which justifies the OUTFIL statement, It may be worth to think whether or not just an OUTREC statement will suffice in your case.
_________________
Best wishes,

German Castillo

[kolusu]

wdnealis,

Do not code the DCB parameters for any of the steps. They are automatically calculated. Just follow the example shown in my post.

Thanks

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[wdnealis]

The problem was with the file being allocated; for some reason a VB file is being created. I just made sure that the parameters matched and it worked. Thanks,

You guys are great; this is a great site.

[wdnealis]

[kolusu]

[wdnealis]

My search brought me back here. "Passing current GDG level to COBOL"

Can I dynamically change the contents of this IDCOMND ddname to the LISTCAT generated in in the program?


The current GDG captured is always the one form the file asociated with the IDCOMND ddname.


I have been able to use the listcat and sort in JCL to get the current GDG, and I can use these results as input into a program.

I have been able to point to the JFCB in asembler (not RDJFC wich may or may not contain the current DSN/GDG level), and

I have been able to call IDCAMS and issue other TSO commands from within Cobol.

However, all of these techniques seem to be limited by the fact that the GDG base has to be know and passed to the program.

The problem with this is that the GDG is created from parameters in a PROC and the base is not captured in any of the steps.

What I need is to trap the current GDG level from within COBOL after the PROC step has dynamically created the GDG.

I am able to generate the LISTCAT for the GDG base created dynamically from the PROC, but the current GDG level written out is always the one listed in the file associated with the IDCOMND DD. If I can changed the contents of this file, so that it contains the new LISTCAT generated from within the program that will resolve this issue.


Any ideas?