Search found 805 matches

by Frank Yaeger
Tue Feb 28, 2012 11:51 pm
Forum: JCL
Topic: Regarding SORT
Replies: 4
Views: 6123

You can use a DFSORT job like the following to do what you asked for. I assumed your input records are already in sorted order by the key as implied by your example. If not, you'll need to add a SORT statement. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * 002 001 -000000000009562 002 001 -0...
by Frank Yaeger
Tue Feb 28, 2012 11:41 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Comparing 2 files on the basis of Date
Replies: 6
Views: 9275

The SYMNAMES data set has to have RECFM=FB and LRECL=80. The 80:X ensures that the Symbol statement is padded with blanks on the right, and that the LRECL of the SYMNAMES data set is set to 80 automatically.
by Frank Yaeger
Tue Feb 28, 2012 12:48 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comparing 2 files on the basis of Date
Replies: 6
Views: 9275

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file2 (FB/80) //SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS) //SYSIN DD * OPTION COPY INREC BUILD=(C'PREVDATE,'...
by Frank Yaeger
Tue Feb 28, 2012 12:32 am
Forum: DFSORT , ICETOOL & Utilities
Topic: sort
Replies: 6
Views: 8547

hi frank, we cant do without using joinkeys frank. I don't understand your question. Are you saying you can't use JOINKEYS? Or are you asking if there's another way to do it without JOINKEYS? If the latter, why do you need to do it without JOINKEYS? I suppose it could be done with the SPLICE operat...
by Frank Yaeger
Sat Feb 25, 2012 12:19 am
Forum: DFSORT , ICETOOL & Utilities
Topic: sort
Replies: 6
Views: 8547

tamilselvan.sampath, Assuming you want to join record-by-record from the two input files, you can use a DFSORT JOINKEYS job like the following: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD * 12345 12345 72890 //IN2 DD * 12dff 12ssw 72sss //SORTOUT DD SYSOUT=* //SYSIN DD * JOINKEYS F1=IN1,FIELDS=...
by Frank Yaeger
Wed Feb 22, 2012 10:58 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 15133

Yes, you're right. I forgot that I only used 12 bytes from F2, not 80. I should have said "remove the F2 bytes".
by Frank Yaeger
Wed Feb 22, 2012 2:00 am
Forum: JCL
Topic: Need to change a value in a VB file
Replies: 3
Views: 4948

You can use DFSORT control statements something like this:

Code: Select all

   OPTION COPY
   INREC IFTHEN=(WHEN=(11,4,CH,EQ,C'1001'),OVERLAY=(26:C'Y'))
by Frank Yaeger
Tue Feb 21, 2012 11:59 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 15133

I'm impressed that you were able to extrapolate my simple example to a more complex example. Nice work. If you don't mind using an extra pass and an extra temp data set, you can avoid the BUILD with / statement by doing another RESIZE. Here's the change for my original 4 card example - if you like i...
by Frank Yaeger
Tue Feb 21, 2012 1:23 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 15133

Here's a DFSORT/ICETOOL job that will give you what you asked for (although I'm not convinced it's actually what you want). I'm assuming that every record in the INJCL file has a blank in position 72 and every record in the INPRMS file has a blank in position 13. //S1 EXEC PGM=ICETOOL //TOOLMSG DD S...
by Frank Yaeger
Tue Feb 21, 2012 12:15 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comparing Date with current date
Replies: 4
Views: 10087

RC8 was added to DFSORT's ICETOOL in Nov, 2010.
by Frank Yaeger
Sat Feb 18, 2012 12:33 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 15133

something like ... Characters to be replaced could be parameters, dsn's, etc... This implies you want a general solution for various different situations (e.g. different number of JCL records, different fields to be replaced, different locations for the fields, etc). If so, then I would suggest wri...
by Frank Yaeger
Fri Feb 17, 2012 11:35 pm
Forum: JCL
Topic: Regarding ALTSEQ CODE
Replies: 2
Views: 5690

ALTSEQ is used for changing the collating sequence. The following gives details of the DFSORT ALTSEQ statement: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/3.4?DT=20110608113434 However, the control statements you show are NOT valid for using ALTSEQ for two reasons: 1) The SO...
by Frank Yaeger
Fri Feb 17, 2012 11:27 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Split a file into n files, depending on register content.
Replies: 9
Views: 13589

I had a little trouble, because the record length was packed decimal unsigned. x'0162' stands for lrecl=162, and as far I have read, DFSORT doesn't have a record format for this. Actually, you can convert X'0162' to 0162 quite easily with: p,2,HEX So if your 2-byte value is in positions 11-12 of th...
by Frank Yaeger
Fri Feb 17, 2012 4:59 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Split a file into n files, depending on register content.
Replies: 9
Views: 13589

You can use a DFSORT/ICETOOL job like the following to do what you asked for. DO NOT specify the LRECL on the OUTnn DD statements - DFSORT will set the LRECL correctly for each output data set "automagically". You will need to change: 11,4,ZD,TO=ZD,LENGTH=5 to correspond to your PD field in the head...
by Frank Yaeger
Thu Feb 16, 2012 10:57 pm
Forum: JCL
Topic: Urgent : Frank can you please help me on this
Replies: 2
Views: 3901

Assuming, as implied by your example, that you want to join record n of file1 with each corresponding record n of file2, you can use a DFSORT JOINKEYS job like the following: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD DSN=... input file1 (FB/3) //IN2 DD DSN=... input file2 (FB/3...