JCL上での質問です
1:JCL上での質問です
RH 12/13 20:10
JCLでNFCNVを行いA-VX→TEXTファイルへ変換を行うPGを作成する時に

TEXTファイル名を

例えば（ファイル名＆システム日付）.CSVと出来ないでしょうか？
2:Re:JCL上での質問です
江須扇 12/13 21:52
私の知ってるかぎりではできないと思います。


ＪＳでシステム日付を比較してジャンプする事ができるので、一年間
で月日比較で３６６個のジャンプを作るということもできると思いま
すが、翌年には修正しなければならないということで、現実的では無
いと思います。


日付ではないですが私は固定的ではないファイル名の変換は、ＣＯＢ
ＯＬで＃ＮＦＣＮＶを内部コールして実施しております。

3:Re:JCL上での質問です
オフコン人 12/13 22:01
とても前の記憶なので、誤っていたら許して下さい。


以前に、#NFCNVのパラメータの一部を動的に変更したく、WORKING STORAGE SECTIONで、JSのパラメータを記述し、一部を変数として入力した値を使った記憶があります。


一度以前のソースを探してみますが、これではわからないですよね。

失礼しました。
4:ありがとうございます
RH 12/13 23:21
ご回答ありがとうございます。日付でなく動的な何か名称を付けるのが目的でした。内部コールというものはどうやって行っているかご教授賜りたいのですが。
5:ありがとうございます
RH 12/13 23:25
681さんありがとうございます。PGからパラメータとして渡して変数として入力する。そちらでもOKです！ソースが見つかった時でいいので教えてください。
6:システムサブルーチンを利用？
うどん 12/14 11:10
COBOL85システムサブルーチン説明書に



6.3　RUNマクロ実行　　P231

6.4　SPAWNマクロ実行　P234

6.5　CHAINマクロ実行　P237



というのが有ります。

はずしてたら、すみません。　
7:Re:JCL上での質問です
0e0e 12/14 12:14
こんな感じかな・・・


workで


000820 01  CALL-PAR.
000830     02 F          PIC X(15) VALUE "#NFCNV,DEV=MSD;".
000840     02 F          PIC X(25) VALUE "MN1=C_MN2=AD_PA1=MSD_PA3=".
000850     02 INFILNM    PIC X(17).
000860     02 F          PIC X(19) VALUE "_PA4=1_PA5=C80_PB1=".
000870     02 OUTFILPATH PIC X(25).
000880     02 F          PIC X(26) VALUE "_PB2=TXTJ_PB3=SHARE_PB7=C_".
000890     02 F          PIC X(14) VALUE "PB8=ADD_MN1=Q_".
000900     02 F          PIC X(02) VALUE "/>".
000910 01  CALL-SIZE     PIC 9(04) VALUE 143.


プロシジャで


001040*
001050     MOVE 入力ファイル名               TO INFILNM.
001060     MOVE "D:\aaaa\出力ファイル名.TXT" TO OUTFILPATH.
001070*
001260     CALL "CBLRUN" USING CALL-PAR CALL-SIZE.
001280     STOP RUN.



8:Re:
江須扇 12/14 12:35
言葉足らずですいません。

オフコン人さんの投稿と同じことを言っております。

説明書はうどんさんの投稿どおりです。

コーディング例は0e0eさんの投稿どおりです。

皆様のフォローありがとうございます。
9:ありがとうございます！
RH 12/14 19:47
0e0eさんありがとうございます。

この方法で大丈夫です！

そもそも、あまりCOBOLでNFCNVをやった事がなかったので

手法が眼中にありませんでした。

江須扇さん

オフコン人さん

うどんさん

重ねて御礼を申し上げます。




10:Re:ありがとうございます！
オフコン人 12/15 23:47
RHさん、失礼いたしました。



中途半端なことを書いた後、フォローいただきましたこと感謝いたします。

急に出張で心配していたのですが、皆さん、ありがとうございました。


前次1-新書板
BluesBB ©Sting_Band