Search found 805 matches

by Frank Yaeger
Thu Dec 22, 2011 10:39 pm
Forum: JCL
Topic: Delete a column from a file
Replies: 2
Views: 4134

You can use DFSORT's BUILD to remove columns. For example, if your input file has RECFM=FB and LRECL=80, you can use a DFSORT job like this: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/80) //SORTOUT DD DSN=... output file (FB/64) //SYSIN DD * OPTION COP...
by Frank Yaeger
Thu Dec 22, 2011 2:40 am
Forum: JCL
Topic: STARBAT utility in JCL
Replies: 3
Views: 4137

Anu,

Google doesn't find anything relevant for STARBAT. Where did you hear about it?
by Frank Yaeger
Thu Dec 22, 2011 2:31 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Variable Field Length
Replies: 1
Views: 1975

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * ManojATJ 123 Subbu 35 Hari 2 Ram 999 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC OVERLAY=(1,12,SQZ=(SHIFT=LEFT,MID=C',')) If you're not familiar with D...
by Frank Yaeger
Fri Dec 16, 2011 6:44 am
Forum: DFSORT , ICETOOL & Utilities
Topic: ICETOOL Subsetting
Replies: 1
Views: 1729

SUBSET is not the right approach. SUBSET is for selecting by relative record number and you seem to be selecting by a compare field. The only trick with a VB file is that the first data byte starts in position 5 after the RDW. I'd need to know more about exactly what you're doing before I could tell...
by Frank Yaeger
Thu Dec 15, 2011 2:53 am
Forum: DFSORT , ICETOOL & Utilities
Topic: header and trailer records
Replies: 2
Views: 2565

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/100) //SORTOUT DD DSN=... output file (FB/100) //SYSIN DD * OPTION COPY OUTFIL REMOVECC, HEADER1=(DATENS=(4MD),' EXAMPLE FILE 01'), TRAILER1...
by Frank Yaeger
Tue Dec 13, 2011 12:22 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Is it possibile to do it with DFSORT?
Replies: 2
Views: 2193

You can use a DFSORT job like the following to do what you asked for. 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 * ab_dd99_rjiedc ab_dd88_nshe ab_dd33_mandh ab_dd33_majfzr //S...
by Frank Yaeger
Sat Dec 10, 2011 9:52 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: COUNT of records based on distinct field value(ICETOOL/SORT)
Replies: 6
Views: 10470

You can use this DFSORT/ICETOOL job to set RC=4 when the input file is empty and RC=0 if it's not empty. Then you can do a conditional test in the next step to use or bypass the DFSORT step that writes the count. //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD * RECORD //OUT...
by Frank Yaeger
Fri Dec 09, 2011 10:41 pm
Forum: JCL
Topic: JCL to get only selected records from a ds --- without key
Replies: 6
Views: 6004

syed wasim, If this does actually have something to do with the job you quoted, and you want to extract the first 40 bytes of each selected FB record, you can use a DFSORT/ICETOOL job like the following: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file //OU...
by Frank Yaeger
Fri Dec 09, 2011 10:36 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: COUNT of records based on distinct field value(ICETOOL/SORT)
Replies: 6
Views: 10470

Is it ok to get RC=4 with the output file empty when the input file is empty, and RC=0 when the input file is not empty?
by Frank Yaeger
Thu Dec 08, 2011 10:01 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT - process array
Replies: 3
Views: 3341

Here's a DFSORT job that will do what you asked for. I assumed you always have 4 occurrences of the array although this can be extended. I also 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=* //...
by Frank Yaeger
Wed Dec 07, 2011 10:00 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT - process array
Replies: 3
Views: 3341

I don't speak COBOL. I need you to describe what you want to do in DFSORT terms. Please show an example of the records in your input file (relevant fields only) and what you expect for output. Show all possible variations you have to deal with. Explain the "rules" for getting from input to output. G...
by Frank Yaeger
Tue Dec 06, 2011 11:25 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: reformat comparism results
Replies: 2
Views: 2480

Based on the little bit of information you've given and assuming that you have two records for each key in positions 1-3, you can use a DFSORT/ICETOOL job like the following to get the output you requested from the input you showed: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //...
by Frank Yaeger
Tue Dec 06, 2011 11:19 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT: Reformat data
Replies: 2
Views: 2310

You can use a DFSORT job like the following to produce the output you requested from the input you show. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * AAA.BBBBB.DDDDDD.EE.IN01.CDEASE.GxxxxV00 AAA.BBBBB.DDDDDD.EE.IN02.ZUEW.GxxxxV00 AAA.BBBBB.DDDDDD.EE.IN03.BHDGS.GxxxxV00 AAA.BBBBB.DDDDDD.EE.I...
by Frank Yaeger
Mon Dec 05, 2011 11:24 pm
Forum: JCL
Topic: Assign numeric value of count to a variable
Replies: 4
Views: 4598

Why didn't you say that's what you wanted in the first place? If you just want RC=4 if the output is empty or RC=0 if the output is not empty, you can do that with a DFSORT job like the following: //HASERR1 EXEC PGM=SORT //SORTIN DD DSN=... input file //SHOWERR DD DSN=&&TEMP,DISP=(,PASS), //...
by Frank Yaeger
Mon Dec 05, 2011 11:12 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: COUNT of records based on distinct field value(ICETOOL/SORT)
Replies: 6
Views: 10470

You have several errors in your job. The one that resulted in the syntax error is using TOT=(1,6,CH,TO=CH which makes no sense and is invalid - but even if you fix that, your job won't work the way you coded it because 120,9,ZD is beyond the end of your records. You can get what you say you want for...