Search found 805 matches

by Frank Yaeger
Tue Jul 19, 2011 9:42 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Is it possible to add timestamp in the Header Record?
Replies: 11
Views: 15081

The only difference I see is a - instead of / for the date, so you would use:

Code: Select all

  DATE=(4MD-),X,TIME=(24:)
Am I missing something?
by Frank Yaeger
Mon Jul 18, 2011 9:44 pm
Forum: JCL
Topic: Need JCL for Concatenating multiple DS to 1 DS
Replies: 11
Views: 9587

Well, you haven't given any details (RECFM, LRECL, an example of input and output), so I'll just suggest:

Use concatenation for the input. Use MOD for the output.
by Frank Yaeger
Mon Jul 18, 2011 9:41 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Substring
Replies: 3
Views: 4144

You can use these DFSORT control statements: OPTION COPY INCLUDE FORMAT=CH, COND=(13,3,CH,EQ,1,3,CH,OR, 13,3,CH,EQ,2,3,CH,OR, 13,3,CH,EQ,3,3,CH,OR, 13,3,CH,EQ,4,3,CH,OR, 13,3,CH,EQ,5,3,CH,OR, 13,3,CH,EQ,6,3,CH,OR, 13,3,CH,EQ,7,3,CH)
by Frank Yaeger
Fri Jul 15, 2011 12:53 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 31091

Here's a DFSORT/ICETOOL job for your new requirement. I assumed your input files all had RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes. //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD * 1 ravi gmail real 1 ravi yahoo real 2 kiran gmail...
by Frank Yaeger
Thu Jul 14, 2011 9:45 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: how to read and write only first & last records of a fil
Replies: 9
Views: 18845

You should have mentioned the input and output attributes earlier. It makes a difference. Here's a DFSORT job for those attributes: //S2 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file (VB/5000) //OUT DD DSN=... output file (FB/163) //TOOLIN DD ...
by Frank Yaeger
Wed Jul 13, 2011 10:27 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 31091

I have no idea what you're asking for.

You need to start over and give a clear description of what you're trying to do with a good example of input records and expected output records.
by Frank Yaeger
Tue Jul 12, 2011 10:40 pm
Forum: JCL
Topic: I have a sequential file in which there are 50 records.Now I
Replies: 1
Views: 3455

You can use a DFSORT job like the following. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/80) //SORTOUT DD DSN=... output file (FB/80) //S...
by Frank Yaeger
Tue Jul 12, 2011 10:23 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: how to read and write only first & last records of a fil
Replies: 9
Views: 18845

The only PTF you are missing is the Oct, 2010 PTF, but you need that to use KEYBEGIN. Ask your System Programmer to install z/OS DFSORT V1R10 PTF UK90025. Here's a DFSORT job that will do what you want without using KEYBEGIN: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD D...
by Frank Yaeger
Mon Jul 11, 2011 9:54 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: how to read and write only first & last records of a fil
Replies: 9
Views: 18845

You can use a DFSORT/ICETOOL job like the following to do what you asked for: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file //OUT DD DSN=... output file //TOOLIN DD * SUBSET FROM(IN) TO(OUT) INPUT KEEP FIRST LAST USING(CTL1) /* //...
by Frank Yaeger
Thu Jul 07, 2011 2:29 am
Forum: DFSORT , ICETOOL & Utilities
Topic: File Comparison using ICETOOL
Replies: 7
Views: 7520

Hmmm...it's kind of tricky, but the following DFSORT job will do what you asked for: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN=... input file1 (VB/3100) //IN2 DD DSN=... input file2 (VB/3100) //T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)...
by Frank Yaeger
Thu Jul 07, 2011 1:42 am
Forum: DFSORT , ICETOOL & Utilities
Topic: sort card to create a file matching the record structure?
Replies: 3
Views: 5681

If you want to truncate one byte on the right from fields 1, 3, 5 and 6, you can use these DFSORT statements: OPTION COPY INREC BUILD=(1,3,5,8,13,26,40,15,55,8,64,11) However, I'm guessing there's more to it than that you aren't telling us about and you'll come back and say "that didn't work...
by Frank Yaeger
Wed Jul 06, 2011 12:51 am
Forum: DFSORT , ICETOOL & Utilities
Topic: File Comparison using ICETOOL
Replies: 7
Views: 7520

Can you tweak the JCL to support this?
Maybe. But I need to know your level of DFSORT, so please run this job and show the //SYSOUT messages you receive:

Code: Select all

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD DUMMY
//SYSIN    DD    *
    OPTION COPY
/*
by Frank Yaeger
Wed Jul 06, 2011 12:41 am
Forum: DFSORT , ICETOOL & Utilities
Topic: sort card to create a file matching the record structure?
Replies: 3
Views: 5681

Sort doesn't know where or what your fields are. You have to tell it. Sort can't read a COBOL record structure and figure out what it means. However, sort does have equivalents of most of the COBOL formats as shown at: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA50/C.3?DT=201006...
by Frank Yaeger
Tue Jul 05, 2011 11:05 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 31091

I can't tell from your example where you want the sequence number to start, how long you want it to be or what format you want it in. But you can just OVERLAY a sequence number where you want it using DFSORT statements like this: OPTION COPY INREC OVERLAY=(21:SEQNUM,5,ZD) Adjust the starting...
by Frank Yaeger
Sat Jul 02, 2011 1:16 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 31091

Here's a DFSORT job that will do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/300) //SORTOUT DD DSN=... output file (FB/300) //SYSIN DD * OPTION COPY OUTFIL REMOVECC,NODETAIL, SECTIONS=(1,40, HEADER3=(1,300)) /*