dfsort

问题 So I have a set of data such as this: mxyzd1 0000015000 mxyzd2 0000016000 xyzmd5823 0000017000 I need to use dfsort to get this data: 123xyzd1 0000015000 123xyzd2 0000016000 xyz123d5820000017000 So what I mean is: replace all character 'm' by '123' without overwriting the second column, so truncate data before you get to the second column (which starts at pos 11). So far I've been able to replace the data but can't prevent all of my data of getting shifted, this is my code so far: SYSIN DATA

问题 I'm trying to pass a IBM file to hex values. With this input: H800 Would save this output in a file: 48383030 I tried by this way: //R45ORF80V JOB (EFAS,2SGJ000),'LLAMI',NOTIFY=R45ORF80, // MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A, // REGION=0M,TIME=5 //*--------------------------------------------------- //SORTEST EXEC PGM=ICEMAN //SORTIN DD DSN=LF58.DFE.V1408001,DISP=SHR //SORTOUT DD DSN=LF58.DFE.V1408001.OUT, // DISP=(NEW,CATLG,DELETE), // LRECL=4,DATACLAS=CDMULTI //SYSOUT DD SYSOUT=X //SYSPRINT

问题 OPTION COPY OUTFIL REMOVECC, TRAILER1=('FT',DATE,55X,COUNT=(EDIT=(IIITT)), 299X,TOTAL=(370,13,SFF,EDIT=(STTTTTTTTT.TT), SIGNS=(+,-), LENGTH=13)) I have a Trailer record with the above options. In this scenario, the date is displayed in the format but I want the date to be displayed in the format 2014-10-21 only. My trailer record will look like below. FT10/21/14 04 +000000192.21 It should be like below. FT2014-10-21 04 +000000192.21 Also, in this one I have found the Count of all the records

问题 There are several messages from DFSORT, which is internally used by the COBOL program that has several sort operations. I would like to remove those DFSORT messages and retain only those from the COBOL program. 回答1: You have three options. Use the OUTDD(ddname) Enterprise COBOL compiler option to change the DDName used for DISPLAY output. Use the DFSPARM as you have discovered, to change the DDName SORT uses for its messages when it is invoked (called) from a program (as when using the SORT

问题 I am using DFSORT to copy the Tape data-set to a temp file, and processing around 80000000 records. Its taking 3 Hours to just copy the data-sets. is there any other way around to reduce the CPU time. Suggestions will be very helpful. Thank You. //STEP40 EXEC SORTD //SORTIN DD DSN=FILEONE(0), // DISP=SHR //SORTOUT DD DSN=&&TEMP, // DISP=(NEW,PASS,DELETE), // DCB=(RECFM=FB,LRECL=30050,BLKSIZE=0), // UNIT=TAPE //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSIN DD * SORT FIELDS=(14,6,PD,A,8,6

问题 I would like to know,is it possible to invoke DFSORT through REXX? I have used the below code,but the result is not as expected. /*REXX*/ QUEUE "//ISDNNNN JOB XXX,XX" QUEUE"//STEP003 EXEC PGM=SORT" "FREE FI(SYSOUT SORTIN SORTOUT)" "ALLOC FI(SYSOUT) DA(*)" "ALLOC FI(SORTIN) DA('XXX.XXX.XXX') REUSE' "ALLOC FI(SORTOUT) DA('XXX.XXX.XXX.OUT') REUSE' QUEUE"//SYSIN DD*" " SORT FIELDS = COPY" " INCLUDE COND = (1,2,CH,EQ,C'AR')" QUEUE"/*" QUEUE"//SYSPRINT DD SYSOUT=*" QUEUE"$$" "SUBMIT * END($$)" 回答1:

问题 I have two input files, each with length of 5200 bytes. A seven byte key is used to compare both files, if there is a match then it needs to be written to "match" file but while writing to match file I need a few fields from infile1 and all other fields from infile2 . If there is no match then write to no match file. Is it possible to do it in sort ? I know it can be easily done using COBOL program but just want to know in SORT/ICETOOL/Easytrieve Plus (EZTPA00) . 回答1: Since 12,200 people have