000100* 00010000 000200* This commarea is for program TRPGMxx. 00020000 000300* commarea is 106 bytes long. 00030000 000400* 00040000 000500 05 save-area. 00050000 000600 10 save-sub PIC S9(4) BINARY. 00060000 000700 10 save-areas OCCURS 5. 00070000 000800 15 save-cursor PIC S9(4) BINARY. 00080000 000900 15 save-action PIC X. 00090000 001000 15 save-attribute PIC X. 00100000 001100 15 save-key PIC X(6). 00110000 001200 10 scroll-key PIC X(6). 00120000 001300 88 scroll-end VALUE HIGH-VALUES. 00130000 001400* 00140000 001500* This area is for confirming an add operation 00150000 001600* and for transferring control to program TRYESNO. 00160000 001700* 00170000 001800* Set normal true for normal execution of your pgm. 00180000 001900* add true for processing an add action. 00190000 002000* change true for processing a change action. 00200000 002100* xctl true when TRYESNO xctl back to your pgm. 00210000 002200 05 pgm-xctl-ind PIC X. 00220000 002300 88 pgm-normal VALUE 'N'. 00230000 002400 88 pgm-add-return VALUE 'A'. 00240000 002500 88 pgm-change-return VALUE 'C'. 00250000 002600 88 pgm-xctl-return VALUE 'X'. 00260000 002700* 00270000 002800* This area is for transferring control to program TRYESNO. 00280000 002900* 00290000 003000* Set your program name here (to XCTL back from TRYESNO). 00300000 003100 05 pgm-xctl-from PIC X(8). 00310000 003200* 00320000 003300* This message appears in the confirmation map. 00330000 003400 05 pgm-message PIC X(35). 00340000 003500* 00350000 003600* This is the result of TRYESNO. 00360000 003700 05 pgm-yes-no PIC X(3). 00370000 003800 88 pgm-yes VALUE 'YES'. 00380000 003900 88 pgm-no VALUE 'NO '. 00390000 004000 88 pgm-cancel VALUE SPACES. 00400000 004100 88 pgm-none VALUE LOW-VALUES. 00410000 004200* 00420000 004300* Used by TRYESNO only. 00430000 004400 05 pgm-reserved PIC X. 00440000 004500 88 pgm-reserved-xctl VALUE 'X'. 00450001 004600 88 pgm-reserved-tran VALUE 'T'. 00460001 004700 88 pgm-reserved-none VALUE LOW-VALUES. 00470002