View previous topic :: View next topic
|
Author |
Message |
tasneem
New User
Joined: 22 Nov 2006 Posts: 3 Location: Pune
|
|
|
|
Hi,
In JCL, if we have to pass '/*' using SYSIN, how do we do that ?
For example:
//SYSIN DATA *
ABC
/* <-- This has to be sent
/*
Thanks,
Tasneem |
|
Back to top |
|
|
UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
Hi tasneem !
It's possible; please have a look at delimiter statement in JCL-Manual
in Bookmanager.
Example:
//S010.SPECIAL DD DATA,DLM=YY
DLABUE PGM MDL30060
/*
DLKBOS PGM MDL30060
DTM 31.12.2006
/*
YY
//S010.Normal DD ....
Regards, UmeySan |
|
Back to top |
|
|
anvit Warnings : 1 New User
Joined: 25 Jan 2006 Posts: 6
|
|
|
|
U can change the deliminator. for example in the example given above:-
//S010.SPECIAL DD DATA,DLM=YY
here u r changing the deliminator from the default '/*' to 'YY'
thus u can use YY as deliminator and pass /* as instream data.......
Merry Xmas |
|
Back to top |
|
|
tasneem
New User
Joined: 22 Nov 2006 Posts: 3 Location: Pune
|
|
|
|
Thanks for the help! |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
If this is your first time using DATA,DLM= do make sure the DLM value you use will NEVER appear in the first 2 bytes of the data. If it does, your input data will be imcomplete. Also, make sure that after the sysin data that you put in the DLM - otherwise, the remainder of your jcl will be read into the program as sysin data. |
|
Back to top |
|
|
rohit jaiswal Warnings : 2 New User
Joined: 09 Mar 2006 Posts: 36 Location: hyderabad,A.P
|
|
|
|
Can any one tell me how to pass a two diffrent data sets to a Eazytrieve program through JCL and how to make it diffrentiation ..... |
|
Back to top |
|
|
guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hi Rohit,
Quote: |
Can any one tell me how to pass a two diffrent data sets to a Eazytrieve program through JCL and how to make it diffrentiation ..... |
Please refer the below code.Hope it will answer ur question
Code: |
//STEP010 EXEC PGM=EZTPA00
//STEPLIB DD DSN=CORP.EASYTREV.PROD.LOADLIB,DISP=SHR
//FILEA DD DSN=T4551SD.BCST222A.RECYCLE.FILE1,DISP=SHR
//FILEC DD DSN=T6327PG.SR3927.OFPERIOD.FILE,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=FBMED,
// LRECL=200,
// UNIT=PROD
//FILEB DD DSN=T6327PG.SR3927.NOTFND.FILE,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=FBMED,
// LRECL=250,
// UNIT=PROD
//FILEDR DD DUMMY
//*
//FILEER DD DUMMY
//*
//SYSPRINT DD DSN=T6327PG.SR3927.DIFFRENC.FILE,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=FBMED,
// LRECL=250,
// UNIT=PROD
//*
//SYSSNAP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD * 0000000
LIST OFF
*REPORT WITH DISPLAYS INSTEAD OF REPORT
*PARM LIST(NOPARM NOFILE)
*
**************************************************************
* INPUT FILE RECORD FOR CAP INPUT FILE
**************************************************************
FILE FILEA
CAP-RECORD 001 200 A
CAP-SPLR 001 005 A
CAP-PKSLP 006 015 A
CAP-PART 021 018 A
CAP-RETRO-AMOUNT 039 014 N 2 MASK '-----------9.99'
CAP-CURNCY 053 003 A
CAP-EX-RATE 056 004 N 3
CAP-D-MATL-SHIP 063 008 A
CAP-DBCR-FLAG 071 001 A
CAP-FILLER 072 129 A
**************************************************************
* OUTPUT FILE RECORDS
**************************************************************
FILE FILEB
RECB 001 225 A
RECB-DISC 001 200 A
RECB-COMMENT 201 050 A
*
FILE FILEC
RECC 001 200 A
* |
Please always start a new thread for new topic |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
rohit jaiswal -
Do you mean "two diffrent data sets" with two different DDNAMEs?
O. |
|
Back to top |
|
|
|