IBM Mainframe Forum

[Rod]

I cannot figure out how to get my own PDS Macro library, I am using 6.4, z/OS, my job abends with a 0c4 and the system is not finding/using my PANDD statement, I found in these forums to look at eztpopt but it looks like assembler code, I do not have a panvalet library. I just want to use the same file definition for all jobs. My ezt.include has a file named cdbdef with macro on line 1. I have tried inserting MACDDN and MAC#LIB statements in the JCL but they error out I guess because I have not figured out where they actually get placed in the JCL. I have read users and reference guides, they mention it all but do not get included in any examples. Please tell me what is missing in my JCL. Thanks in advance.

*******B006 MACRO SYSTEM - PAN , PM015 DD CARD MISSING PANDD1*
1 %CDBDEF
2 JOB INPUT CDBREC NAME ENV-REPORTS
2 *******B082 NAME IS UNDEFINED - CDBREC
*************************** BOTTOM OF DATA **************************

Here is my JCL
/STEP02 EXEC PGM=EZTPA00,REGION=6M
/STEPLIB DD DSN=IDCSHR.EASYPLUS,DISP=SHR
/SYSOUT DD SYSOUT=*
/SYSUDUMP DD DUMMY
/EZTVFM DD UNIT=DISK,SPACE=(4096,(500,500),,,ROUND)
/SYSPRINT DD SYSOUT=*
/*DBREC DD DSN=DHSC.R8300522.UPK1(0),UNIT=CART,DISP=SHR
/CDBREC DD DSN=DHS9002.RESEARCH.SAMP0116,DISP=SHR
/PANDD DD DSN=DHS9002.EZT.INCLUDE,DISP=SHR
/DATAOUT DD DSN=DHS9002.FILES.EZT011X,
/ UNIT=DISK,
/ DISP=(NEW,CATLG,DELETE),
/ SPACE=(CYL,(100,15),RLSE),
/ DCB=(LRECL=136,BLKSIZE=30600,RECFM=FB)
/*
%CDBDEF
JOB INPUT CDBREC NAME ENV-REPORTS

[dick scherrer]

Hello and welcome to the forum,

You have a PANDD but the error messages says PANDD1. . .

Several places i've been simply concatenate the file definition into the source input. This way many programs can share the definition without having to create a macro.

[Rod]

Is there any way to do an include at execution?

[Rod]

also, where does the MACDDN and MAC#LIB statements go? Thanks.

[dick scherrer]

Hello,

Is there any way to do an include at execution?

Yes.

Several places i've been simply concatenate the file definition into the source input.

Select all

//SYSIN    DD DSN=EZ.SRS.TEST.CTL(CSTAT1),DISP=SHR     the ezt pgm start       
//         DD DSN=EZ.COPYLIB1.Y2K(EDTL2K),DISP=SHR     a file def               
//         DD DSN=EZ.COPYLIB1.Y2K(EMST2K),DISP=SHR        another
//         DD DSN=EZ.SRS.TEST.CTL(CSTATK),DISP=SHR      more ezt code 
//         DD DSN=EZ.SRS.TEST.CTL(CSTATR1A),DISP=SHR    a report start
//         DD DSN=EZ.SRS.TEST.CTL(D&RUNYYMM),DISP=SHR   some header info 
//         DD DSN=EZ.SRS.TEST.CTL(CSTATR1B),DISP=SHR    a report end

[Rod]

Thanks and yes, I was just playing myself and was going to post this code that I created to still have the main login in the JCL. Just a simple little 1st job to make sure I have the JCL part right.

//SYSIN DD DSN=DHS9002.EZT.INCLUDE(CDBDEF),DISP=SHR
// DD *
JOB INPUT CDBREC NAME ENV-REPORTS
// DD DSN=DHS9002.EZT.INCLUDE(PTRDEF),DISP=SHR
// DD *
IF COUNTY = '011'
PRINT ENV-REPORT
END-IF
GO TO JOB
REPORT ENV-REPORT LINESIZE 125 SPACE 1
LINE PACASELD CATEGORY COUNTY BASIC CASENAME CASEADDR CASECITY CASEZIP
END

[dick scherrer]

Hello,

I have tried inserting MACDDN and MAC#LIB statements in the JCL

They do not go in JCL, they are part of the Easytrieve Options table.