|
4:Re: プリンタの印字についてのご質問 07/26 10:48 �� �� ACCEPT �� 000010 IDENTIFICATION DIVISION. 000020 PROGRAM-ID. AAA003. 000030 ENVIRONMENT DIVISION. 000040 CONFIGURATION SECTION. 000050 INPUT-OUTPUT SECTION. 000060 FILE-CONTROL. 000070 SELECT DPFL ASSIGN TO DP-PRN999. 000080* 000090 I-O-CONTROL. 000100* ( 000110 APPLY SHIFT-CODE ON DPFL. 000120* 000130 DATA DIVISION. 000140 FILE SECTION. 000150* ( 000160 FD DPFL LABEL RECORD OMITTED 000170 LINAGE IS 66. 000180* 000190 01 DPFL-R PIC X(136). 000200* 000210 WORKING-STORAGE SECTION. 000220 01 WORK-AREA. 000230 03 END-STATUS. 000240 05 ADV PIC X(02) VALUE "04". 000250 03 WK-ADV PIC X(01). 000260*-----------------------------------------------------------------* 000270* * 000280*-----------------------------------------------------------------* 000290 01 P-TITLE. 000300 03 FILLER PIC X(10) VALUE "". 000310 03 FILLER PIC X(126). 000320 01 P-MIDASHI. 000330 03 FILLER PIC X(04) VALUE "". 000340 03 FILLER PIC X(03). 000350 03 FILLER PIC X(06) VALUE " ". 000360 03 FILLER PIC X(08). 000370 03 FILLER PIC X(08) VALUE "". 000380 03 FILLER PIC X(107). 000390*-----------------------------------------------------------------* 000400* * 000410*-----------------------------------------------------------------* 000420 SCREEN SECTION. 000430 SD GAMEN END STATUS IS END-ST. 000440* 000450 01 SCR01 CLEAR SCREEN. 000460 03 LINE 01 COLUMN 01 PIC N(14) VALUE 000470 NC"". 000480 01 AC-AREA. 000490 03 AC-ADV LINE 22 COLUMN 68 PIC X(01) 000500 USING WK-ADV 000510 NO IFC CHECK OVERFLOW. 000520* 000530 PROCEDURE DIVISION. 000540* 000550 BEGINNING. 000560 DISPLAY SCR01. 000570 OPEN OUTPUT DPFL. 000580* () 000590 WRITE DPFL-R FROM P-TITLE AFTER 2 000600 END-WRITE. 000610* (ACCEPT) 000620 ACCEPT AC-ADV. 000630 EVALUATE END-ST 000640 WHEN ADV 000650* (F10) 000660 WRITE DPFL-R FROM P-MIDASHI AFTER 2 000670 END-WRITE 000680 WHEN OTHER 000690* (��) 000700 CONTINUE 000710 END-EVALUATE. 000720 CLOSE DPFL. 000730 STOP RUN. ACCEPT�� F10CLOSE |