Search found 9 matches

by vasanthz
Wed Sep 25, 2013 10:35 pm
Forum: CICS
Topic: Reading a CICS Dump
Replies: 1
Views: 2623

Hello,
Im up for it - vasanthz@gmail.com

If it is a good doc, why not upload it here itself, would be useful for more people.

Thanks,
by vasanthz
Fri Sep 06, 2013 12:44 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: I need to add just the 4 digit year to header1
Replies: 6
Views: 5160

Hello, You can define a SYMNAME for the year like YEAR,S'&YR4.' and use YEAR in header1 statement. Would this help? //WELLS EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYMNAMES DD * YEAR,S'&YR4.' /* //SORTIN DD * DUMMY //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY OUTFIL BUILD=(1,80), HEADER1=(...
by vasanthz
Thu Sep 05, 2013 12:59 pm
Forum: JCL
Topic: Continuation in SYSIN card
Replies: 10
Views: 10497

Nic,
As it shows here COPY cannot start in column 1 and (I am not sure about this) continuations hav to start in column 16 - not column 1.
Looks like ICETOOL's statements can start in column 1 and also the continuations can start in column 1. Just checked.

Regards,
by vasanthz
Thu Sep 05, 2013 12:51 pm
Forum: JCL
Topic: Continuation in SYSIN card
Replies: 10
Views: 10497

Hello, The ICETOOL manual says, Continuation can be indicated by a dash (-) after the operator or any operand. Each operand must be completely specified on one line. Example: COPY FROM(IN1) - TO(OUT1,OUT2,OUT3) - USING(ABCD) In our case operator was "COPY" & operands were "FR...
by vasanthz
Tue Sep 03, 2013 8:26 pm
Forum: JCL
Topic: Continuation in SYSIN card
Replies: 10
Views: 10497

by vasanthz
Mon Sep 02, 2013 7:31 pm
Forum: JCL
Topic: about JCl to transfer file from MF to USS
Replies: 1
Views: 1808

Hello, A sample JCL to send from mainframe to USS. //FTP EXEC PGM=FTP,PARM='(EXIT=16' //FILEIN DD DSN=WELLS.MAINFRAME.FILE,DISP=SHR //SYSPRINT DD SYSOUT=* //OUTPUT DD SYSOUT=*,DCB=(RECFM=FB,LRECL=120,BLKSIZE=24000) //SYSIN DD * <FTP SERVER ADDRESS> <USERID> <PASSWORD> TYPE E MODE S RECOR...
by vasanthz
Mon Sep 02, 2013 1:39 pm
Forum: JCL
Topic: dummy out the multiple dataset
Replies: 11
Views: 10855

Hello Anuj, nice to see you here :-)
DUMMY and empty are two different concepts - did I miss something...
Yup the TS seems to have mixed them up. I assumed the requirement was the empty the file and posted a snippet.

Regards,
by vasanthz
Fri Aug 30, 2013 8:55 pm
Forum: JCL
Topic: dummy out the multiple dataset
Replies: 11
Views: 10855

Hello,
This one was the simplest IMO.
There are a lot of other ways.. too many to post them all here.
Upto you to search for them :-)
by vasanthz
Fri Aug 30, 2013 3:22 pm
Forum: JCL
Topic: dummy out the multiple dataset
Replies: 11
Views: 10855

Hello, Assuming the files that need to be emptied are FB, LRECL 80. You could try this below code, //STEP0010 EXEC PGM=SORT //SORTIN DD DUMMY,DCB=(LRECL=80,BLKSIZE=0,RECFM=FB) //OUT1 DD DSN=WELLS.FILE.TO.BE.EMPTIED1,DISP=OLD //OUT2 DD DSN=WELLS.FILE.TO.BE.EMPTIED2,DISP=OLD //OUT3 DD DSN=WELL...