Search found 805 matches
- Tue Feb 28, 2012 11:51 pm
- Forum: JCL
- Topic: Regarding SORT
- Replies: 4
- Views: 6124
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...
- Tue Feb 28, 2012 11:41 pm
- Forum: DFSORT , ICETOOL & Utilities
- Topic: Comparing 2 files on the basis of Date
- Replies: 6
- Views: 9278
- Tue Feb 28, 2012 12:48 am
- Forum: DFSORT , ICETOOL & Utilities
- Topic: Comparing 2 files on the basis of Date
- Replies: 6
- Views: 9278
- Tue Feb 28, 2012 12:32 am
- Forum: DFSORT , ICETOOL & Utilities
- Topic: sort
- Replies: 6
- Views: 8554
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...
- Sat Feb 25, 2012 12:19 am
- Forum: DFSORT , ICETOOL & Utilities
- Topic: sort
- Replies: 6
- Views: 8554
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=...
- 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: 15135
- Wed Feb 22, 2012 2:00 am
- Forum: JCL
- Topic: Need to change a value in a VB file
- Replies: 3
- Views: 4952
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'))
- 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: 15135
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...
- 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: 15135
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...
- Tue Feb 21, 2012 12:15 am
- Forum: DFSORT , ICETOOL & Utilities
- Topic: Comparing Date with current date
- Replies: 4
- Views: 10092
- 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: 15135
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...
- Fri Feb 17, 2012 11:35 pm
- Forum: JCL
- Topic: Regarding ALTSEQ CODE
- Replies: 2
- Views: 5694
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...
- 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: 13591
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...
- 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: 13591
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...
- Thu Feb 16, 2012 10:57 pm
- Forum: JCL
- Topic: Urgent : Frank can you please help me on this
- Replies: 2
- Views: 3904