を見つけていない私は、シーケンシャルデータセットを持っている最後の2バイト(位置71及び72)、AA、ABのいずれかの別CHであり、このメインフレーム - DATA SET SHECICS.ZEUSBANK.TXNOFFLD
0000000520161103152815SHE0009 P1234561234567898765411112222 120AA
の形態を有しますBAまたはブランク。私はこの入力をソートし、セクションAA、AB、BAのレポートを作成し、AA、ABまたはBAを持たないレコードを無視しようとしています。各セクションの各行は、出納係名(上のSHE0009、位置23)、および支払い(上の120、AAの前の11バイト、位置60)を示しています。各セクションの最後の行は、そのセクションからのすべての支払いを合計します。
は、ここに私のコード
//SHE0008 JOB
//SORTSTEP EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN='SHECISC.ZEUSBANK.TXNOFFLD',DISP=SHR
//SORTOUT DD DSN=SHE0008.TESTT,
// DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(10,5),RLSE)
//SYSIN DD *
SORT FIELDS=(71,1,CH,A,72,1,CH.A)
INREC BUILD=(71,1,72,1,23,8,60,11,BI,TO=ZD,LENGTH=11)
OUTFIL REMOVECC,
SECTIONS=(1,1,2,1
HEADER3=(1:C'PAYMENTS BY TELLER',/,X,/,
1:C'TRANSFER TYPE: ',1,1,2,1,/,X,/,
1:C'TELLER',10:C'PAYMENT',/,
1:C'------',10:C'-------'),
TRAILER3=(X,/,
1:C'BRANCH TOTAL: ',16:TOT=(11,11,BI,EDIT=(SIIIITTT),SIGNS=(,-)))),
TRAILER1=(X,/,1:C'GRAND TOTAL: ',TOT=(11,11,BI,
EDIT=(SIIIITTT),SIGNS=(,-))),
OUTREC=(1:7,4,CH,LENGTH=7,10:11,4,BI,EDIT=(SIIIITTT),
SIGNS=(,-))
/*
私は私のデータセットが見つからない理由を誰もが見ることができるエラーSORTIN - DATA SET SHECISC.ZEUSBANK.TXNOFFLD NOT FOUNDI - STEP WAS NOT EXECUTED.
を取得していますし、可能な場合は、自分の希望する結果になり、このコードです。ありがとう。
ああ、助けてください。どうもありがとう。 –