オフコン锡浆蘑

兩

1:兩
ヨ〖ド 07/28 11:22
はじめまして。≈ヨ〖ド∽といいます。

海まで链くさわったことのないA-VXですが

その惧で苍瓢しているシステムをコンバ〖トすることになりました。

で咖」と攫鼠を玫してここにたどり缅きました。とても锦かっています。∈答塑弄にA-VXを痰くす羹けの侯度なのですがˇˇˇ∷

COBOLソ〖スをＷｉｎｄｏｗｓなどのテキスト妨及ファイルに恃垂を

徊雇にさせていただきながら、附乖システムのソ〖スを恃垂しています。

恃垂するソ〖スの回年茶烫の茶烫で≈戎规∽か≈ソ〖ス叹∽を掐蜗しますが、ここで链ソ〖スを回年したい眷圭はどのように掐蜗したらよいのでしょうか々

缄傅にマニュアルがないため、どうかご兜绩布さい。
5:Re:兩
tahrayan 07/31 00:26
たいしたものではありませんが、バッチプログラムを侯ってみました。

いちいちパラメ〖タを掐蜗する涩妥がなくなります。

ＭＳＤ０００のＳＹＳ△ＪＳＬに掐れてください。

叹涟は部でも紊いですが、ＳＵＷＩＮでもしてください。

蝗い数は、ＲＵＮコマンド乖で≈ＳＵＷＩＮ·∈ＲＡＮＤＴ∷〃∽のように≈ＪＳ叹·∈恃垂したいＳＵ叹∷〃∽と掐蜗して悸乖します。

/RUN #LBM,DEV=MSD;                                                       

PRD=PRN999_MDE=MSD000_MFI=TESTAPSUL_ACT=SELECT_ODE=MSD000_OFI=TESTAPSEQ_ 

NAM=&0_ODE=999_ACT=999_DIR=NO_MDE=END_                                   

/> ;                                                                     

/RUN #NFCNV,DEV=MSD;                                                     

MN1=C_MN2=AD_PA1=MSD000_PA3=TESTAPSEQ_PA4=1_PA5=C80_                     

PB1=ZZZ.TXT_PB2=TXTJ_PB3=EXCLUSIVE_PB7=C_PB8=CREATE_                     

MN1=Q_                                                                   

/> ;

惧のプログラムをテキストファイルにして、

http://www.geocities.jp/tahrayan/utili/avxdos-cobol.html

でＪＳに恃垂します。

◆ＬＢＭのパラメ〖タはMDE=MSD000,MFI=SYS@JSL,ACT=ADD,TYP=JCLとしてください。

6:バグかな々
tahrayan 07/31 00:55
儼儼儽PB1=&0_儽

儼儼

兠儽刅兌

儾儽儽刄儽儼儼儽刅儽徭

7:Re:兩
ヨ〖ド 08/02 20:55

儽A-VX

JS^^;) 儽

SUL儽儽徭

兩儽

COPY

儽SULTEXT

儾儽徭

儽儽兪

兣兪儽

儽

儽

8:Re:兩
ゼロ 08/03 11:16
ヨ〖ドさん幌めまして

办忍弄かどうかは、尸かりませんが讳はＣＯＰＹ剁で蝗脱するソ〖スは侍ＳＵＬにまとめて瓷妄するようにしています。

度坛ごとにＳＵＬは尸けていますがＣＯＰＹ剁で蝗脱するＳＵＬは戮度坛でも蝗脱することがあるのでファイルレイアウトの恃构霹が券栏した眷圭の瓷妄がしやすいからです。

ＣＯＢＯＬソ〖ス柒にどの判峡礁を蝗脱しているか汤淡しておくといいかもしれません。

9:界进が嫡では々々々
ＥＸＣＨＡＮＧＥ 08/03 11:48
■　ＤＢを蝗った婶尸なら◆ＤＤＭとか、ＲＤＢＱ２霹で拇べれば尸かると蛔います。

■　ただ、祸攫はよく尸からないのですが、

　> 磋磨って、誊と缄で１つ１つ恃垂しました。

  > なんとか贷赂ファイルのレイアウトを澄千する数恕は痰いものでしょうか々

　という布りはちょっといただけないのでは。。

　黎にＣＯＰＹ剁も崔めてどこに掐っているか澄千してから

　コンバ〖トした数が。。

　> ファイルレイアウトの获瘟も缠しいものしかなく

　ということは、涟扦荚とのコンタクトが艰れない觉斗のように

　蛔われます。

　と、咐うことは≥≥≥′附哼ＳＵＬに掐っているソ〖スが

　苍漂面システムと办米しているとどうして瘦沮できるのでしょうか々々々

■　ソ〖スコンバ〖トによるマイグレ〖ションは、

　　涟扦荚の定蜗が涩妥な眷圭が驴いように蛔います。

■　讳だったら涟扦荚の定蜗が评られない眷圭は、

　　糠惮システムとして菇蜜しなおす∈浩菇蜜する∷でしょうね。

　　どのみち附箕爬となっては、

　　杠狄娄の妥凤も恃わっているでしょうし。。

■　　すみません。艰り臂し鹅汐でしょうか。

10:Re:界进が嫡では々々々
ヨ〖ド 08/07 12:00
今き哈みありがとうございます。

ご回纽暮いた爬は、艰り臂し鹅汐ではなくまさにその奶りです。

附觉は、

ˇ涟扦荚の定蜗が评がたい觉斗にある。

ˇ苍漂面システムとSULの办米は瘦俱できない。

という觉斗にあります。

それを僻まえて

ˇ叫丸うる嘎り涟扦荚の定蜗を妥懒

  ∈ソ〖スの铜りかすら稍汤な觉斗∷

それと事乖して

ˇ附觉システムの尸老

ˇ度坛フロ〖の浩澄千と杠狄妥凤(纳裁、恃构)の澄千

を悸卉している觉斗にあります。

冯渡のところは浩菇蜜となるだろう咐う千急のもと

できる嘎り溅える攫鼠は、溅っておこうというのが

附觉といったところでしょうか。

11:ご鹅汐屯です
ＥＸＣＨＡＮＧＥ 08/08 07:57
■　ヨ〖ドさんこんにちわ。なかなかたいへんみたいですね。

　　捐せ垂えというのは、部刨沸赋してもいつも部か皈烯があるようです。

■　さて、レイアウトの凤の鲁きですが、◆ＤＤＭを蝗ってＳＹＳ△ＤＤＦをプリントアウトすることが叫丸ればＣＯＰＹ剁がなくてもかなりな攫鼠が缄にはいると蛔います。

■ RUN #DDM;  ≥≥≥′　ＭＳＤ　ＳＹＳ△ＤＤＦ　１ˉＯＫ　≥≥≥′　６ˉリスト叫蜗　≥≥′　链磅湖　判峡界　ＰＲＮ９９９　１ˉＯＫ　で、警なくともデ〖タベ〖スに判峡されている山叹∈湿妄ファイル、侠妄ファイルを崔めて∷および、灌誊叹∈涟扦荚がよほど恃わった数でない嘎りＣＯＢＯＬ惧の灌誊叹のまま∷を磅湖叫蜗できます。

■　ただしこの数恕は肌の爬に庙罢です。

　∈１∷ＳＹＳ△ＤＤＦは附觉の笨脱システムに蝗われているので、柒推の慨蒯拉は光いが、恃构を裁えると附觉システムに脚络な啼玛が弹こることがあるので、Ａ?ＶＸ踏沸赋荚の眷圭≈リスト叫蜗∽镍刨にした数が奥链。　たいていの眷圭ＳＹＳ△ＤＤＦ笆嘲にももう办つＸＸＸ△ＤＤＦという叹涟のユ〖ザＤＤＦがアロケ〖トされていると蛔いますので、まずこちらで澄かめてからの数がいいでしょう。∈涟揭の　ＭＳＤ　ＳＹＳ△ＤＤＦのところを　ＭＳＤ　ＸＸＸ△ＤＤＦに垂えて布さい∷

　∈２∷このシステムが　カンパニ〖で笨脱されている眷圭は∈チェンジＤＩＲにて、カレントディレクトリ惧で笨脱されている眷圭は∷その觉轮でリストを叫蜗しても戮のカンパニ〖やグロ〖バルのＤＢ山は叫蜗されません。

　∈３∷◆ＤＤＭで澄千できるのはＤＢ山のみですので、◆ＭＡＰで澄千したときの剩眶瑚苞界试喇ファイルのみになります。　陵滦试喇ファイル、シ〖ケンシャルファイル、それから奠及瑚苞界试喇霹は澄千できません。

　∈４∷リスト叫蜗はかなりの尸翁になりますのでたくさんのストックフォ〖ムをご脱罢布さい。リスト叫蜗面のＪＯＢのキャンセル∈动扩姜位∷は啼玛ないと蛔います。　祸涟にユ〖ザＤＤＦ惧でＤＢ山１改、１改叫蜗してみて锡浆することをおすすめします。

もちろんＳＹＳ△ＤＤＦの眷圭も１改１改改侍にプリントアウトできます。

　∈５∷ＳＹＳ△ＤＤＦをいじくることに极慨が积てないときはユ〖ザＤＤＦを滦据にして布さい。∈ただし附觉笨脱システムと窗链に办米してる瘦沮はありませんが。。∷

　∈６∷灌誊叹が尸からなくても掳拉のみ尸かれば紊いのであれば

RUN RDBQ2;　にてＤＢのデ〖タを木儡橇いてみれば紊いでしょう。

こちらはエンドユ〖ザ羹けのツ〖ル∈ＡＣＣＥＳＳの介殊みたいなもの∷ですので木儡デ〖タを构糠したりしない嘎り守网な苹恶です。ココには称灌誊の掳拉が山绩されます。

12:ご鹅汐屯です≥２
ＥＸＣＨＡＮＧＥ 08/08 08:22
■　柒推の输颅です。棱汤がワンステップ却けていました。

　　汗し仑えて布さい。

■ RUN #DDM; ≥≥≥′　２ˉ山年盗　≥≥′　ＭＳＤ　ＳＹＳ△ＤＤＦ　１ˉＯＫ　≥≥′　∈笆布票屯です∷。。。

13:ご鹅汐屯です≥３　∈使くと奢い厦∷
ＥＸＣＨＡＮＧＥ 08/08 08:52
■　もう办つ咐い撕れたことがありました。

■　ＳＹＳ△ＤＤＦには附觉笨脱システムと办米した柒推がある。と拷しましたが、悸はこれには脚络な庙罢祸灌があります。

■　Ａ≥ＶＸでは、ＣＯＢＯＬの灌誊年盗とＤＤＦのＤＢ年盗とが侍」に瓷妄されているため、尉荚に稍办米があってもＣＯＢＯＬプログラムとしては啼玛なしに苍漂してしまう。という啼玛があります。

■　ＡＳ】４００霹では、毋えばＣＲＴＰＦコマンドを悸乖するとＤＤＳの年盗に答づいて、湿妄ファイルのアロケ〖トとディクショナリへの判峡を票箕に悸乖してくれるので、ＤＤＳ年盗∈灌誊年盗∷、湿妄ファイル、ディクショナリ年盗薯の话荚が窗链に办米するのですが、

Ａ≥ＶＸでは悟凰弄にファイルベ〖ス≥≥′デ〖タベ〖スと纳裁されてきた沸稗からか、このような阜泰さがありません。

■　コピ〖剁とＤＤ年盗の稍办米を拇べる数恕としては、ＲＤＢＱ２霹でデ〖タを橇いてみて、面咳が屡碰かどうか∈峰ずれなども崔めて∷澄千するぐらいしか数恕がないようです。

14:Re:ご鹅汐屯です≥３　∈使くと奢い厦∷
ちょっと涟までA-VXユ〖ザ 08/17 23:15
海は、A-NXが缄傅で蝗えないので、拒嘿に尸かりませんが、

澄か、#SABC4 と咐うUTLで、COBOL85で侯ったLMから、

リンクされているCU叹、REV(=SU のREV)が山绩叫丸たはずですね。

COPY付矢叹、REVも山绩∈磅湖々∷叫丸たと蛔います。

IDSPと咐う、シンボルデバッガがリリ〖スされて警し沸ってから

この怠墙が纳裁されたと淡脖。

COBOL85の溯条箕に、DDFから木儡COPY付矢を栏喇叫丸ましたね。

この收りを蝗っていると、润撅に守网だった　と淡脖。

般っていたら、ごめんなさい。

笆惧

涟肌1-糠今饶

BluesBB ©Sting_Band