413700/--------------------------------------------------------* 413800* ＨＥＬＰ処理 (HELP-RTN) * 413900*--------------------------------------------------------* 414000 HELP-RTN SECTION. 414100* 414200 IF SPA-ATTN = PF11 414300 MOVE "9999" TO SPA-U5-ID 414400 MOVE "99" TO SPA-U5-POS 414500 MOVE "PF11" TO SPA-PFKEY 414600 GO TO HELP-010 414700 END-IF. 414800* 414900 EVALUATE A022A-AID-X ALSO A022A-AID-Y 415000 WHEN 8 ALSO 14 THRU 18 415100 IF A022A-SENTAKU = "K" 415200 MOVE "5" TO SPA-U5-ID 415300 MOVE "H1" TO SPA-U5-POS 415400 MOVE A022A-SUITO TO SPA-U5-START 415500 END-IF 415600 IF A022A-SENTAKU = "M" 415700 MOVE "B" TO SPA-U5-ID 415800 MOVE "H1" TO SPA-U5-POS 415900 MOVE A022A-SUITO TO SPA-U5-START 416000 END-IF 416100 WHEN 8 ALSO 46 THRU 52 416200 MOVE "C" TO SPA-U5-ID 416300 MOVE "C1" TO SPA-U5-POS 416400 MOVE A022A-BANKCD TO SPA-U5-START 416500 WHEN 12 ALSO 2 THRU 3 416600 WHEN 14 ALSO 2 THRU 3 416700 WHEN 16 ALSO 2 THRU 3 416800 WHEN 18 ALSO 2 THRU 3 416900 WHEN 20 ALSO 2 THRU 3 417000 WHEN 22 ALSO 2 THRU 3 417100 COMPUTE W-IX = (A022A-AID-X - 10) / 2 417200 MOVE "K009" TO SPA-U5-ID 417300 MOVE "K" TO SPA-U5-POS 417400 MOVE W-IX TO SPA-U5-POS(2:1) 417500 MOVE A022A-KN (W-IX) TO SPA-U5-START 417600 WHEN 12 ALSO 55 THRU 59 417700 WHEN 14 ALSO 55 THRU 59 417800 WHEN 16 ALSO 55 THRU 59 417900 WHEN 18 ALSO 55 THRU 59 418000 WHEN 20 ALSO 55 THRU 59 418100 WHEN 22 ALSO 55 THRU 59 418200 COMPUTE W-IX = (A022A-AID-X - 10) / 2 418300 MOVE "5" TO SPA-U5-ID 418400 MOVE "5" TO SPA-U5-POS 418500 MOVE W-IX TO SPA-U5-POS(2:1) 418600 MOVE A022A-ATBUKA(W-IX) TO SPA-U5-START 418700 WHEN 12 ALSO 62 THRU 67 418800 WHEN 14 ALSO 63 THRU 67 418900 WHEN 16 ALSO 63 THRU 67 419000 WHEN 18 ALSO 63 THRU 67 419100 WHEN 20 ALSO 63 THRU 67 419200 WHEN 22 ALSO 63 THRU 67 419300 COMPUTE W-IX = (A022A-AID-X - 10) / 2 419400 IF A022A-AIK (W-IX) = "0" OR "1" OR "2" OR "3" 419500 OR "5" OR "6" OR "7" 419600 MOVE A022A-AIK (W-IX) TO SPA-U5-ID 419700 IF A022A-AIK (W-IX) = "2" OR "6" OR "7" 419800 MOVE "1" TO SPA-U5-ID 419900 END-IF 420000 MOVE "A" TO SPA-U5-POS 420100 MOVE W-IX TO SPA-U5-POS(2:1) 420200 MOVE A022A-AITE (W-IX) TO SPA-U5-START 420300 ELSE 420400 MOVE "E" TO SW-ERR 420500 MOVE V-ATTR-2JICB TO A022A-AIK-C (W-IX) 420600 MOVE NC"相手先区分を入れて下さい" 420700 TO A022A-MSG 420800 END-IF 420900 WHEN 12 ALSO 69 THRU 78 421000 WHEN 14 ALSO 69 THRU 78 421100 WHEN 16 ALSO 69 THRU 78 421200 WHEN 18 ALSO 69 THRU 78 421300 WHEN 20 ALSO 69 THRU 78 421400 WHEN 22 ALSO 69 THRU 78 421500 COMPUTE W-IX = (A022A-AID-X - 10) / 2 421600 MOVE "U" TO SPA-U5-ID 421700 MOVE "U" TO SPA-U5-POS 421800 MOVE W-IX TO SPA-U5-POS(2:1) 421900 MOVE A022A-USER (W-IX) TO SPA-U5-START 422000 WHEN OTHER 422100 MOVE "E" TO SW-ERR 422200 MOVE NC"カーソル位置が正しくありません" 422300 TO A022A-MSG 422400 MOVE V-ATTR-2JICB TO A022A-MSG-C 422500 END-EVALUATE. 422600 MOVE "PF12" TO SPA-PFKEY. 422700* 422800 HELP-010. 422900* 423000 IF SW-ERR NOT = "E" 423100 MOVE KGOA022A-DATA TO SPA-DC-FILE 423200 MOVE "KGOA022" TO SPA-U5-PGCD 423300 MOVE "P" TO SW-WT 423400 MOVE "AW" TO RTN-ID1 423500 MOVE SPA-MFUNC TO RTN-ID2 423600** MOVE "KWOU500" TO CAPL-ID 423700 MOVE "KGOU500" TO CAPL-ID 423800 ELSE 423900 MOVE KGOA022A-DATA TO INOT-MSGREC 424000 END-IF. 424100* 424200 HELP-EXIT. 424300 EXIT.