jcl

0熱

1答えて

私はspool実行（ユーティリティPGM = SDSFを使用）から情報を取得するジョブを作成しましたが、一度に1つのジョブに対してのみ行うことができます。 //SDSFS1 EXEC PGM=SDSF //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //ISFOUT DD SYSOUT=*

0熱

1答えて

JCLエラー - "$ HASP165 IBMUSERWがSVSCJES2で終了 - JCLエラーCN（内部）"

ユーティリティDFHWS2LSを使用してCICS Webサービスリクエスタを作成しようとしています。 IBMのRedbooksまたはガイドに記載されている最初のステップでは、JCLでこれを実行しています。私はJCLを提出する際にこの問題に直面します。私は何か間違っています。何が分からないの？これに関するお手伝いをいただければ幸いです。 //IBMUSERW JOB(),'WS2LS',MSG

0熱

2答えて

Syncsort Sumフィールド=重複を削除しないでください

重複したエントリを削除するSYNCSORTジョブを実行しようとしていますが、実行するとまだ重複しています。 INCLUDE COND=(((61,1,CH,EQ,C'P'),OR, (61,1,CH,EQ,C'V')),AND, (8,2,CH,EQ,C'FL')) OUTREC FIELDS=(1:12,20, 30:36,20,

0熱

1答えて

JCLは日付/時刻をファイルに追加しますか？

JCLのファイルに現在の日付/時刻を追加するにはどうすればよいですか？ JCLから例えば： //INPUT DD * CGQ-TEST.ISQCQ.NET ASCII LOCSITE SBD=SYSP.FTP.RCAMSI SENDSITE PUT 'TJ.UTJ0IR86.BC814.HDR' BC814001.TMP APPEND 'TJ.UTJ4IR86.BC(0)' BC8

-1熱

1答えて

拡張VSAM割り当て

私は、4GBの制限を超えるVSAMファイルを必要とするプロジェクトを担当しています。私はIDCAMを使って拡張VSAMを定義しようとしていますが、私に役立つ例やガイドが見つかりません。 //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD* DEFINE CLUSTER - (NAME(AA.AFILE.AV

0熱

1答えて

JCLソートを使用してx個のレコードの後に文字を書き込む

さまざまなフィールドをソート/再フォーマットし、以下のコードのように新しい出力ファイルに出力するJCLソートを作成しました。 10分の1秒ごとのレコードの先頭に数字「9」を単に印字するには、このコードを修正する必要があります。私は 'IFTHEN'が必要だと推測しますが、 'OUTREC FIELDS'で使用できるかどうかはわかりません。 SORT FIELDS=COPY OUTREC

0熱

1答えて

従業員の最新の日付で元の従業員の注文でレコードを保持

PSファイル内の各従業員の最新のレコードをフィルタリングする必要があります。 DFSORTを使用してこれをどのように達成できますか？従業員ID（6桁）と日付（8桁）としてPSファイルに記録します。私は、従業員が中に現れた元の順序を維持する各従業員の最新のレコードをフィルターする必要が例：。 I/Pファイル： 10000120150101 10000320130101 10000120160

0熱

1答えて

テープから読み込む - JCL

私たちは現在、私たちのデータのいくつかをテープに保存しています（物理的ではなく、仮想的なものです）、私はそれらのテープから情報を読み込んで引き出す必要があります。現在、我々は次のようになり、各集/ SERのDDステートメントでJCLを使用している： //VOLSERO DD DSN=DWP.PROD.****.TAPE, // DISP=SHR, // UNIT=CCLOC

0熱

1答えて

メインフレームからの添付ファイル付きで電子メールを送信できますか？

は、私は、次のコードを持っている： //****************************************** //PROC01 EXEC PGM=IEBGENER //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //SYSUT2 DD SYSOUT=(B,SMTP) //SYSUT1 DD *