Im up for it - firstname.lastname@example.org
If it is a good doc, why not upload it here itself, would be useful for more people.
Search found 9 matches
Search found 9 matches • Page 1 of 1
- 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=(...
Looks like ICETOOL's statements can start in column 1 and also the continuations can start in column 1. Just checked.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.
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...
- 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...
Hello Anuj, nice to see you here
Yup the TS seems to have mixed them up. I assumed the requirement was the empty the file and posted a snippet.DUMMY and empty are two different concepts - did I miss something...
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...