Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報
[掲示板に戻る] 全部  1-  最新50
1 JCL上での質問です
RH 2005-12-13 20:10  [返信] [編集]

JCLでNFCNVを行いA-VX→TEXTファイルへ変換を行うPGを作成する時に

TEXTファイル名を

例えば（ファイル名＆システム日付）.CSVと出来ないでしょうか？
2 Re:JCL上での質問です
江須扇 2005-12-13 21:52  [返信] [編集]

私の知ってるかぎりではできないと思います。


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


日付ではないですが私は固定的ではないファイル名の変換は、ＣＯＢ
ＯＬで＃ＮＦＣＮＶを内部コールして実施しております。
3 Re:JCL上での質問です
オフコン人 2005-12-13 22:01  [返信] [編集]

とても前の記憶なので、誤っていたら許して下さい。


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


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

失礼しました。
4 ありがとうございます
RH 2005-12-13 23:21  [返信] [編集]

ご回答ありがとうございます。日付でなく動的な何か名称を付けるのが目的でした。内部コールというものはどうやって行っているかご教授賜りたいのですが。
5 ありがとうございます
RH 2005-12-13 23:25  [返信] [編集]

681さんありがとうございます。PGからパラメータとして渡して変数として入力する。そちらでもOKです！ソースが見つかった時でいいので教えてください。
6 システムサブルーチンを利用？
うどん 2005-12-14 11:10  [返信] [編集]

COBOL85システムサブルーチン説明書に



6.3　RUNマクロ実行　　P231

6.4　SPAWNマクロ実行　P234

6.5　CHAINマクロ実行　P237



というのが有ります。

はずしてたら、すみません。　
7 Re:JCL上での質問です
0e0e 2005-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:内部コール
江須扇 2005-12-14 12:35  [返信] [編集]

言葉足らずですいません。

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

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

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

皆様のフォローありがとうございます。
9 ありがとうございます！
RH 2005-12-14 19:47  [返信] [編集]

0e0eさんありがとうございます。

この方法で大丈夫です！

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

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

江須扇さん

オフコン人さん

うどんさん

重ねて御礼を申し上げます。
10 Re:ありがとうございます！
オフコン人 2005-12-15 23:47  [返信] [編集]

RHさん、失礼いたしました。



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

急に出張で心配していたのですが、皆さん、ありがとうございました。
[掲示板に戻る] 全部 次100 最新50
BluesBB ©Sting_Band