Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Passing /* thru JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
tasneem

New User


Joined: 22 Nov 2006
Posts: 3
Location: Pune

PostPosted: Fri Dec 22, 2006 12:13 pm    Post subject: Passing /* thru JCL
Reply with quote

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
View user's profile Send private message

UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 757
Location: Germany

PostPosted: Fri Dec 22, 2006 1:23 pm    Post subject:
Reply with quote

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
View user's profile Send private message
anvit
Warnings : 1

New User


Joined: 25 Jan 2006
Posts: 6

PostPosted: Fri Dec 22, 2006 4:38 pm    Post subject:
Reply with quote

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
View user's profile Send private message
tasneem

New User


Joined: 22 Nov 2006
Posts: 3
Location: Pune

PostPosted: Fri Dec 22, 2006 5:30 pm    Post subject: Re: Passing /* thru JCL
Reply with quote

Thanks for the help!
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Dec 23, 2006 2:16 am    Post subject:
Reply with quote

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
View user's profile Send private message
rohit jaiswal
Warnings : 2

New User


Joined: 09 Mar 2006
Posts: 36
Location: hyderabad,A.P

PostPosted: Tue Dec 26, 2006 2:44 pm    Post subject:
Reply with 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 .....
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Tue Dec 26, 2006 5:09 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Dec 26, 2006 5:17 pm    Post subject:
Reply with quote

rohit jaiswal -

Do you mean "two diffrent data sets" with two different DDNAMEs?

O.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Passing data from REXX to C programme... chong.zhou CLIST & REXX 3 Wed Jul 26, 2017 9:11 pm
No new posts FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
No new posts Passing information through JCL as in... Pia Baruah JCL & VSAM 5 Wed May 25, 2016 2:22 pm
No new posts Confusion while passing data to a cal... amitc23 COBOL Programming 5 Mon Mar 07, 2016 12:36 pm
No new posts Passing parms when calling ISRSUPC(su... jasorn COBOL Programming 3 Mon Nov 16, 2015 12:06 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us