saraswathi Beginner
Joined: 08 Dec 2006 Posts: 14 Topics: 8
|
Posted: Wed Aug 29, 2007 6:36 am Post subject: Easytrieve and Parm |
|
|
hi,
i am passinng a value from JCL.Can i use that parm value in easytrieve to declare a file layout?
Ex:
Code: |
//STEP01 EXEC PGM=EZTPA00,PARM='1'
//IN1 DD DSN=FILENAME,DISP=SHR
//SYSIN DD *
FILE IN1
DATA WS-POS 9 A
WS-PARM-INFO W 3 N
WS-PARM-LNTH WS-PARM-INFO 2 N
WS-POS WS-PARM-INFO +2 1 A
JOB INPUT NULL START SIGNON
DISPLAY 'DATA' DATA
STOP EXECUTE
SIGNON. PROC
CALL EZTPX01 USING (PARM-REGISTER WS-PARM-INFO)
END-PROC
|
If it is not possible,suggest me in this. |
|