I know few things in EZT but don't know how to use EZT macros.
//JOB ...
//STEP1 EXEC PGM=EZTPA00
//EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(100,100),RLSE)
//PERSNL1 DD *
0001 NAME1
0002 NAME2
0003 NAME3
0004 NAME4
/*
//PERSNL2 DD *
0001 24
0002 25
0003 26
0004 27
/*
//PRTFL01 DD SYSOUT=*
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//SYSIN DD *
*---------------------------------------------------------------*
PARM DEBUG(FLOW FLOWSIZ 300 STATE FLDCHK NOXREF DMAP CLIST)
LIST ON
*******************************************************************
FILE PRTFL01 PRINTER FB(133 0)
*******************************************************************
FILE PERSNL1 FB(40 400)
%PERSNL
*
FILE PERSNL2 FB(40 400)
IN2-KEY 01 04 A HEADING('EMPLOYEE' 'NUMBER')
IN2-AGE 07 02 N HEADING('EMPLOYEE' 'AGE')
*
JOB INPUT (PERSNL1 KEY(IN1-KEY) PERSNL2 KEY(IN2-KEY))
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 132 PRINTER PRTFL01 NOADJUST NOPAGE NODATE
TITLE 1 'IF MATCH KEY REPORT - TWO FILES COMPARISON '
LINE 01 IN1-KEY IN1-NAME IN2-AGE
/*
//STEP1 EXEC PGM=EZTPA00
//EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(100,100),RLSE)
//PERSNL1 DD *
0001 NAME1
0002 NAME2
0003 NAME3
0004 NAME4
/*
//PERSNL2 DD *
0001 24
0002 25
0003 26
0004 27
/*
//PRTFL01 DD SYSOUT=*
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//SYSIN DD *
*---------------------------------------------------------------*
PARM DEBUG(FLOW FLOWSIZ 300 STATE FLDCHK NOXREF DMAP CLIST)
LIST ON
*******************************************************************
FILE PRTFL01 PRINTER FB(133 0)
*******************************************************************
FILE PERSNL1 FB(40 400)
%PERSNL
*
FILE PERSNL2 FB(40 400)
IN2-KEY 01 04 A HEADING('EMPLOYEE' 'NUMBER')
IN2-AGE 07 02 N HEADING('EMPLOYEE' 'AGE')
*
JOB INPUT (PERSNL1 KEY(IN1-KEY) PERSNL2 KEY(IN2-KEY))
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 132 PRINTER PRTFL01 NOADJUST NOPAGE NODATE
TITLE 1 'IF MATCH KEY REPORT - TWO FILES COMPARISON '
LINE 01 IN1-KEY IN1-NAME IN2-AGE
/*
I created a member with name PERSNL (as MACRO name is %PERSNL ) in the same PDS where above JCL resides.
The contents of PERSNL member are
IN1-KEY 01 04 A HEADING('EMPLOYEE' 'NUMBER')
IN1-NAME 07 10 A HEADING('EMPLOYEE' 'NAME')
IN1-NAME 07 10 A HEADING('EMPLOYEE' 'NAME')
Obv. Job failed with msg '*******B006 MACRO SYSTEM - PDS , ERROR IN MACRO FILE'.
What should be added/changed in/from the JCL so that MACRO PERSNL can be used?