2017-11-19 27 views
0

を見つけていない私は、シーケンシャルデータセットを持っている最後の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)を示しています。各セクションの最後の行は、そのセクションからのすべての支払いを合計します。

enter image description here

は、ここに私のコード

//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.を取得していますし、可能な場合は、自分の希望する結果になり、このコードです。ありがとう。

答えて

1

ファイル名は、SHECISC.ZEUSBANK.TXNOFFLDを書いたSHECICS.ZEUSBANK.TXNOFFLDです。

問題の可能性がある最初の部分「ひそひそ」を間違えた。

+0

ああ、助けてください。どうもありがとう。 –

0

データセット名の前後の引用符を削除してください。引用符は、JCL DD文でデータ・セット名を区切る場合

、JCL 処理ができない - :

すなわち

//SORTIN DD DSN='SHECISC.ZEUSBANK.TXNOFFLD',DISP=SHR 

//SORTIN DD DSN=SHECISC.ZEUSBANK.TXNOFFLD,DISP=SHR 

に推論ビーイングを変更ステートメントの構文チェックを実行し、SMS はその入力に基づいて入力を拒否しますデータセット名のrsing。 SMSでは、 は、引用されたデータセットを SMSで管理することができないため、名前のカタログ化を許可しません。

SMSはSystem Managed Storageですが、私はその結果がSMS前の時間で同じだったと思います。私が正しく思い出した場合は、奇妙なテープをDSN=' '(スペースの数)で作成して、テープを読み込もうとするとかなりの人を欺くことになりました。つまり、引用符で矛盾したデータセット名を使用することができました。

関心の以下の私のBE: -

Data Set Names

Character sets - Table 2. Special Characters Used in Syntax

+0

私はいずれかの方法で試してみましたが、引用符の有無にかかわらず、データセットはまだ見つかりませんでした。しかし、私が3.4節でそれを見つけたら、それはまだそこにあります。 –

+0

DD SYSOUT = * DD DSN = SHECISC.ZEUSBANK.TXNOFFLD、DISP =(MOD、CATLG) 'に変更しました。 「デファイナルリソースが保護されておらず、データファシリティシステムによって割り当てが失敗しました」と表示されます。どうすれば修正できますか? –

+0

これを修正する最も良い方法は、2つのメッセージを貼り付けたときに見逃していたものを検討することです。すなわち**「ICH408I」**および「IEF344I」**である。それらを利用することを学ぶことで、あなたは** RTFM **として知られているものを介して遭遇するすべての問題の99%を修正します。まず、「このエラーは、RACFがRACFで保護されたリソースを定義するための不正な試みを検出したときに発生します。」と表示されます。**システムアクション**はもっと話しています。 ** 'etc' ** **(これはあなたを助けることを目的としていますので、それを見てください)** – MikeT

関連する問題