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

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]

ＪＣＬ（ＪＳ）について 汎用機ＳＥ 2008-1-17 18:27
Re:ＪＣＬ（ＪＳ）について ターラヤン 2008-1-17 23:59
Re:ＪＣＬ（ＪＳ）について うどん 2008-1-18 19:14
Re:ＪＣＬ（ＪＳ）について ソーステキスト太... 2008-1-18 21:38
Re:ＪＣＬ（ＪＳ）について 汎用機ＳＥ 2008-1-20 21:47

1 ＪＣＬ（ＪＳ）について
汎用機ＳＥ 2008-1-17 18:27  [返信] [編集]

初めて投稿させて頂きます。

ＪＣＬの機能について教えて下さい。



ＪＣＬにデータをＳＹＳＩＮとして定義できるのでしょうか？



やりたい事は、ＣＯＢＯＬソースをＣドライブにテキスト形式と

して一括で#NFCNVでコンバートしたいと考えています。



やり方は、ここの掲示板に記載されていた情報を参考にしました。



汎用機では機能があるので、Ａ−ＶＸでも出来るのでは？

と思いまして・・・



申し訳ありませんが宜しくお願い致します。
2 Re:ＪＣＬ（ＪＳ）について
ターラヤン 2008-1-17 23:59  [返信] [編集]

ＮＥＣのオフコンには、ＳＹＳＩＮ、ＳＹＳＯＵＴはありません。



ＣＯＢＯＬソースを一括で変換するのが目的ということですが、

自動でソースの一覧だけを＃ＮＦＣＮＶに渡すのが難しいですね。

簡単にできる方法があればよいのですが。
3 Re:ＪＣＬ（ＪＳ）について
うどん 2008-1-18 19:14  [返信] [編集]

色々方法があるのかも知れませんが、

うちで動いているのを。



１．ソースライブラリのプログラム一覧をデータで作成する。



２．#LBMのACT=SELECT という機能でソースライブラリから

　　データファイルに作成できるので、１．で作成したデータr

　　１件ずつ読んで、スパンマクロ（WAITモード）で#LBMを

　　動かすコボルプログラムを作成する。



　ちなみに、ソースライブラリの一覧を作成するのは、

　#ABCでソースライブラリの一覧をスプールに落として、

　データをゴチョゴチョして作ってます．．．



　一応書いてみたけど、簡単には行かないみたい？

　もっと楽な方法があれば、私も知りたいです。
4 Re:ＪＣＬ（ＪＳ）について
ソーステキスト太郎 2008-1-18 21:38  [返信] [編集]

私のやっているオフコンのソースをテキスト形式に

変換する方法をお知らせします。



１組目のＪＳ

(JSL名:SU-CNV JSﾌｧｲﾙ名:AAA-JSL)
/RUN SE&ST0,DEV=MSD,FIL=XXX-LML;
/> ;
/RUN #LBM;
PRD=_MDE=MSD_MFI=&5_ACT=SELECT_ODE=MSD_OFI=F80_NAM=&0_
ODE=_ACT=_DIR=_MDE=_
/> ;
/RUN #FLCNV;
MN=C_MN2=AD_PA1=MSD_PA2=_PA3=F80_PA4=1_PA5=C80_PB1=&4_
PB2=CSV1_PB3=EXCLUSIVE_PB4=COMMA_PB7=C_PB8=CREATE_MN1=Q_
/> ;


２組目のＪＳ

(JSL名:XXXXXX)
/RUN SU-CNV,DEV=MSD,FIL=AAA-JSL,(AAAAA1,D,OC,TXT,,BBB-SUL);
/RUN SU-CNV,DEV=MSD,FIL=AAA-JSL,(AAAAA2,D,OC,TXT,,BBB-SUL);
/RUN SU-CNV,DEV=MSD,FIL=AAA-JSL,(AAAAA3,D,OC,TXT,,BBB-SUL);
/RUN SU-CNV,DEV=MSD,FIL=AAA-JSL,(AAAAA4,D,OC,TXT,,BBB-SUL);
/RUN SU-CNV,DEV=MSD,FIL=AAA-JSL,(AAAAA5,D,OC,TXT,,BBB-SUL);
/RUN SU-CNV,DEV=MSD,FIL=AAA-JSL,(AAAAA6,D,OC,TXT,,BBB-SUL);


上記の２種類のＪＳを作成し、２組目のＪＳを実行するとテキスト形式に展開されたソースが

指定された場所に出来上がります。

(説明)

BBB-SUL:変換したいソースが入っているSUL名
AAAAA1〜6:変換したいメンバ名
D :ドライブ名
OC :フォルダ名
TXT:拡張子


１組目のＪＳ内のSE&ST0について

SE&ST0:COBOLでの自作プログラムです

機能：&0,&1,&2,&3より&4を作成します
例:&0=AAAAA1
:&1=D
:&2=OC
:&3=TXT
↓
:&4=D:\OC\AAAAA1.TXT


自作プログラムを作成したくない場合は、１組目のＪＳの＆部分を取り込んでしまったものを、

複写していただければ、可能です

下記のように

/RUN #LBM;
PRD=_MDE=MSD_MCI=_MFI=BBB-SUL_ACT=SELECT_ODE=MSD_OCI=_OFI=F80-1_
NAM=AAAAA1_ODE=_ACT=_DIR=_MDE=_
/> ;
/RUN #NFCNV,DEV=MSD;
MN1=C_MN2=AD_PA1=MSD_PA2=_PA3=F80-1_PA4=1_PA5=C80_
PB1=D:OCAAAAA1.TXT_PB2=CSV1_PB3=EXCLUSIVE_PB4=COMMA_PB7=C_
PB8=CREATE_MN1=Q_
/> ;
/RUN #LBM;
PRD=_MDE=MSD_MCI=_MFI=BBB-SUL_ACT=SELECT_ODE=MSD_OCI=_OFI=F80-1_
NAM=AAAAA2_ODE=_ACT=_DIR=_MDE=_
/> ;
/RUN #NFCNV,DEV=MSD;
MN1=C_MN2=AD_PA1=MSD_PA2=_PA3=F80-1_PA4=1_PA5=C80_
PB1=D:\OC\AAAAA2.TXT_PB2=CSV1_PB3=EXCLUSIVE_PB4=COMMA_PB7=C_
PB8=CREATE_MN1=Q_
/> ;


ここで、問題になるのが２組目のＪＳの作り方だと思います。
一般的には、「うどん」さんの方法になると思います。

「うどん」さんの方法（多分こうしておられるのではないかと想像しました）

1.ディレクトリ一覧をスプールに落とす
2.#ABC;複写-->ファイル-->SYS@SP????-->F256-->オプション=YES-->出力形式=FIXED-->あとは指示に従ってください
3.F256の８桁目から６文字がメンバ名ですので、#ABC;などでF256からF80に抽出し、加工します。
　抽出時のフィールド編集で(@***@),(8,6),(@+++@)などとしています
4.F80を#TEDITで読み込みSコマンドで
S ALL S”***”,”/RUN SU-CNV,DEV=MSD,FIL=AAA-JSL,(”
S ALL S”+++”,”,D,OC,TXT,,BBB-SUL);”
5.メンバ名をつけて保存し、実行します。

（注）SYS@SP????の????は数字ですが、スプール表示の番号-1を指定します。

以上、長々と書きましたが、参考にならば幸いです。
5 Re:ＪＣＬ（ＪＳ）について
汎用機ＳＥ 2008-1-20 21:47  [返信] [編集]

ターラヤン様、

うどん様、

ソーステキスト太郎様



有り難う御座いました。

参考になりました。



また、何かありましたら

宜しくお願い致します。

BluesBB ©Sting_Band