View previous topic :: View next topic |
Author |
Message |
akshaj Beginner
Joined: 30 Dec 2002 Posts: 12 Topics: 8
|
Posted: Wed May 07, 2003 11:02 am Post subject: How to Use MACROS in EZT ? |
|
|
Hi ,
I've a EZT copybook in PDS.How can I code the JCL to use this copybook instead of hardcoding in the program.I'm using the following code and getting errors
Code: |
//STEP01 EXEC PGM=EZTPA00,REGION=2500K
//ERRPRINT DD SYSOUT=*
//EZTVFM DD UNIT=WORK,SPACE=(4096,(100,100))
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//PANDD1 DD DSN= PDS WITH EZT COPYBOOK FILE1EZ(FB 80)
//FILE1 DD DSN=FILE1,
// AMP=('BUFND=50'),DISP=SHR
**
FILE FILE1
%FILE1EZ
*
**
|
Akshaj |
|
Back to top |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Wed May 07, 2003 4:43 pm Post subject: |
|
|
akash,
You need to code the following instead of PANDD1
Code: |
//PANDD DD DSN= YOUR PDS WITH EZT COPYBOOK,DISP=SHR
|
Make sure that copybook name is FILE1EZ
Hope this helps...
cheers
kolusu |
|
Back to top |
|
 |
akshaj Beginner
Joined: 30 Dec 2002 Posts: 12 Topics: 8
|
Posted: Thu May 08, 2003 7:10 am Post subject: |
|
|
Hi Kolusu ,
I still get an error
*******B006 MACRO SYSTEM - PDS , ERROR IN MACRO FILE
----
my pds details:copyez
MACRO 0 LOCATION 1
EMPLOYEE-REC &LOCATION +
178 A
----
//PANDD DD DSN=PDS NAME,DISP=SHR (FB,80)
//INPUT DD DSN=INPUT,DISP=SHR
**
*LIST OFF
FILE INPUT
%COPYEZ
----
akshaj |
|
Back to top |
|
 |
akshaj Beginner
Joined: 30 Dec 2002 Posts: 12 Topics: 8
|
Posted: Thu May 08, 2003 3:28 pm Post subject: |
|
|
I feel it depends on the EZT installation in the shop.Some shops allow PANVALET datasets and some will allow PDS's.
But I'm not sure on this though.
My shop has both panvalet libraries and PDS's too.
It works with Panvalet libraries but not with PDS.
If u know details about this please help.
AKshai |
|
Back to top |
|
 |
akshaj Beginner
Joined: 30 Dec 2002 Posts: 12 Topics: 8
|
Posted: Fri May 09, 2003 7:15 am Post subject: |
|
|
I got the solution.If I type "PDS" instead of "PANDD" the job is working fine. |
|
Back to top |
|
 |
|
|