A* DSPSIZ(24 80 *DS3) A DSPSIZ(*FREE) A MSGLOC(24) A PRINT ******************************************** A*( 1 ”Τ–Ϊ‚Μ SFL ƒŒƒR[ƒh ) A R SFREC01 SFL ******************************************** A*%%TS SD 20180601 141937 QTR REL-V6R1M0 5761-WDS A TEXT(' ‚r‚e‚kƒŒƒR[ƒh 01') A 20 AO 99 SFLNXTCHG A GYO 4A O 19 3 A 03 DSPATR(UL) A HSYYYY 4Y 0O 19 9TEXT(' ”N ') A HSDATA 58A O 19 15TEXT(' —š—π ') A* A R SFCTL01 SFLCTL(SFREC01) A SFLSIZ(16) A SFLPAG(2) A SFLLIN(2) A TEXT(' ‚r‚e‚kƒRƒ“ƒgƒ[ƒ‹ 01') A ROLLUP(14 ' ŽŸ•Ε ') A ROLLDOWN(15 ' ‘O•Ε ') A CF03(03 ' I—Ή ') A CF09(09 ' ŽŸ‰ζ–Κ ') A CF12(12 ' ‘O‰ζ–Κ ') A SETOF(99) A BLINK A OVERLAY A 42 SFLDSP A 41 SFLDSPCTL A 43 SFLINZ A 46 SFLDLT A 44 SFLCLR A* 45 SFLEND(*MORE) A 61 SFLMSGID(EDT0411 QPDA/QEDTMSG 61) A 62 SFLMSGID(EDT0410 QPDA/QEDTMSG 62) A 66 SFLMSGID(CPF9897 QSYS/QCPFMSG 66 &M- A SGDTE) A 67 SFLMSGID(CPD6A6D QSYS/QCPFMSG 67) A RTNCSRLOC(&RCD &FLD &CSRP) A DSPREC 4S 0H SFLRCDNBR(CURSOR) A RCD 10A H A FLD 10A H A CSRP 4S 0H TEXT('SFL •\Ž¦ ΪΊ°Δή ϊY ') A MSGDTE 60A P A* A 1 63HTML('') A 1 3' —š@—π@‘ ' A DSPATR(HI) ADD "A *FREE 1 43 A RSDATE 8Y 0O 1 45EDTWRD(' / / ') A 1 56' Œ»έ ' A DSPMSG 6A O 1 72TEXT(' ˆΫŽƒ‚[ƒh ') A DSPATR(HI) ADD "A *FREE 1148 A 4 3' Ž–Ό ' A 9 3' Œ»ZŠ ' A 13 3' ˜A—ζ ' A*( Ž–Ό ) A 2 2' ƒR[ƒh ' A* DSPATR(RI) COLOR(BLU) A RSCODE 4A O 2 15TEXT(' —š—π‘ƒR[ƒh ') A 3 2' ' A* DSPATR(RI) COLOR(BLU) A RSNAMK 32O O 3 15TEXT(' ƒtƒŠƒJƒi ') A 4 2' ' A* DSPATR(RI) COLOR(BLU) A RSNAME 32O O 4 15TEXT(' Ž@@–Ό ') A*( Ά”NŒŽ“ϊ ) A 6 3' Ά”NŒŽ“ϊ ' A RSNTYY 4Y 0O 6 15 A 6 20' ”N ' A RSBTMM 2Y 0O 6 25EDTCDE(Z) A 6 28' ŒŽ ' A RSBTDD 2Y 0O 6 33 A 6 36' “ϊΆ ( –ž ' A*( ”N—ξ ) A RSYEAR 3Y 0O 6 48EDTCDE(Z) A 6 52' Λ )' A*( «•Κ ) A RSSEX# 4A O 6 58 A*( Œ»ZŠ ) A 8 15' § ' A RSGZIP 8A O 8 21 A RSGADR1K 48O O 9 15 A RSGADR1 48O O 10 15TEXT('*MAP1') A RSGADR2 48O O 11 15TEXT('*MAP1') A 8 64' “d˜b ' A RSGTEL 15A O 9 65TEXT('*TEL') A*( ˜A—ζ ) A 13 15' § ' A RSRZIP 8A O 13 21 A RSRADR1K 48O O 14 15 A RSRADR1 48O O 15 15TEXT('*MAP2') A RSRADR2 48O O 16 15TEXT('*MAP2') A 13 64' “d˜b ' A RSRTEL 15A O 14 65TEXT('*TEL') A*( Šw—πEE—π ) A 18 2' ϊY ' A DSPATR(RI) COLOR(TRQ) A 18 8' ”NŒŽ ' A DSPATR(RI) COLOR(PNK) A 18 15' Šw—πEE—π - A ' A DSPATR(RI) COLOR(YLW) * A 08 18 2' ϊY ' ADD "A *FREE 3 82 A DSPATR(RI) COLOR(TRQ) A 08 18 8' ”NŒŽ ' A DSPATR(RI) COLOR(PNK) ADD "A *FREE 3 89 A 08 18 16' Šw—πEE—π - A ' ADD "A *FREE 3 96 A DSPATR(RI) COLOR(YLW) ******************************************** A*( 2 ”Τ–Ϊ‚Μ SFL ƒŒƒR[ƒh ) A R SFREC02 SFL ******************************************** A*%%TS SD 20180601 141937 QTR REL-V6R1M0 5761-WDS A TEXT(' ‚r‚e‚kƒŒƒR[ƒh 02') A 20 AO 99 SFLNXTCHG A GYO 4A O 22 3TEXT(' ϊY ') ADD "A *FREE 11 83 A 03 DSPATR(UL) A HLIKE 68A O 22 9TEXT(' –{l‹L“ό ') ADD "A *FREE 11 89 A* QTW A R SFCTL02 SFLCTL(SFREC02) A SFLSIZ(0008) A SFLPAG(0002) A TEXT(' ‚r‚e‚kƒRƒ“ƒgƒ[ƒ‹ 02') A ROLLUP(14 ' ŽŸ•Ε ') A ROLLDOWN(15 ' ‘O•Ε ') A CF03(03 ' I—Ή ') A CF09(09 ' ŽŸ‰ζ–Κ ') A CF12(12 ' ‘O‰ζ–Κ ') A SETOF(99) A BLINK A OVERLAY A 42 SFLDSP A 41 SFLDSPCTL A 43 SFLINZ A 46 SFLDLT A 44 SFLCLR A* 45 SFLEND(*MORE) A 61 SFLMSGID(EDT0411 QPDA/QEDTMSG 61) A 62 SFLMSGID(EDT0410 QPDA/QEDTMSG 62) A 66 SFLMSGID(CPF9897 QSYS/QCPFMSG 66 &M- A SGDTE) A 67 SFLMSGID(CPD6A6D QSYS/QCPFMSG 67) A RTNCSRLOC(&RCD &FLD &CSRP) A DSPREC 4S 0H SFLRCDNBR(CURSOR) A RCD 10A H A FLD 10A H A CSRP 4S 0H TEXT('SFL •\Ž¦ ΪΊ°Δή ϊY ') A MSGDTE 60A P A* A*( “Α‹ZED‚«‚ΘŠw‰Θ‚Θ‚Η ) A 21 2' ϊY ' "A *FREE 10 82 A DSPATR(RI) COLOR(TRQ) A 21 9' “Α‹ZED‚«‚ΘŠw‰Θ‚Θ‚Η - A - A ' ADD "A *FREE 10 89 A DSPATR(RI) COLOR(YLW) A* A R DSPGRAPH A TEXT(' ƒOƒ‰ƒt‚Μ•\Ž¦ ') A OVERLAY A PUTRETAIN *( ‰‘–_ƒOƒ‰ƒt ) A 18 83GRAPH *BAR WIDTH(365) HEIGHT(280) - A TEXT(" ν‘‘ε–Ό¨—͐} ") - A ITEMS((" D“cM’· " &P1) - A (" •“cMŒΊ " &P2) - A (" γ™ŒͺM " &P3) - A (" “Ώμ‰ΖN " &P4) - A (" –kπŽN " &P5)) *( ‰~ƒOƒ‰ƒt ) A 18135GRAPH *PIE WIDTH(220) HEIGHT(220) - A TEXT(" ν‘‘ε–Ό¨—͐} ") - A ITEMS((" D“cM’· " &P1) - A (" •“cMŒΊ " &P2) - A (" γ™ŒͺM " &P3) - A (" “Ώμ‰ΖN " &P4) - A (" –kπŽN " &P5)) A P1 4S 0H A P2 4S 0H A P3 4S 0H A P4 4S 0H A P5 4S 0H A R DSPEND A TEXT(' ‹@”\ƒL[‚Μ•\Ž¦ ') A OVERLAY A* PUTRETAIN A 24 2'F3= I—Ή ' A COLOR(BLU) A 24 59'F12= ‘O‰ζ–Κ ' A COLOR(BLU) A*( ŒrόƒNƒŠƒ„[ ) A R GRDCLR GRDRCD A GRDCLR A R CLRRCD A 2 2' ' A*( Œrόƒoƒbƒtƒ@[ ) A R GRDREC GRDRCD A GRDATR((*COLOR WHT) (*LINTYP SLD)) A*( ‹ιŒ` ) A GRDBOX((*POS (*DS3 2 2 15 60)) + A (*TYPE PLAIN)) *( ‰‘ό ) A GRDLIN((*POS (*DS3 5 2 78)) + A (*TYPE UPPER)) *( cό ) A GRDLIN((*POS (*DS3 5 80 12)) + A (*TYPE LEFT)) *( ‰‘ό ) A GRDLIN((*POS (*DS3 7 2 78)) + A (*TYPE UPPER)) *( ‰‘ό ) A GRDLIN((*POS (*DS3 12 2 78)) + A (*TYPE UPPER)) *( ‰‘ό ) A GRDLIN((*POS (*DS3 17 62 18)) + A (*TYPE UPPER)) A*( ‹ιŒ` ) A GRDBOX((*POS (*DS3 18 2 1 78)) + A (*TYPE PLAIN)) *( c‹ζΨ‚θό ) A GRDLIN((*POS (*DS3 18 15 1)) + A (*TYPE LEFT)) *( c‹ζΨ‚θό ) A GRDLIN((*POS (*DS3 2 13 15)) + A (*TYPE LEFT)) *( cό ) A GRDLIN((*POS (*DS3 18 8 1)) + A (*TYPE LEFT)) *( ‰Eγ‚ΜŒrό ) A*( ‹ιŒ` ) A GRDBOX((*POS (3 82 1 78)) + A (*TYPE PLAIN)) *( c‹ζΨ‚θό ) A GRDLIN((*POS (3 89 1)) + A (*TYPE LEFT)) *( c‹ζΨ‚θό ) A GRDLIN((*POS (3 99 1)) + A (*TYPE LEFT)) A*( SFREC02 —p‚ΜŒrό ) A*( ‹ιŒ` ) A GRDBOX((*POS (10 82 1 78)) + A (*TYPE PLAIN)) *( c‹ζΨ‚θό ) A GRDLIN((*POS (10 89 1)) + A (*TYPE LEFT)) *( ‚±‚κ‚ζ‚θ–ΎΧ‚ΜŒrό‚π•\Ž¦‚·‚ι ) *(1) Ά‰Ί‚ΜŒrό *(1)-1. ΆcŒrό ( Šw—πEE—π ) *( c‹ζΨ‚θό ) A GRDLIN((*POS (*DS3 19 2 16)) + A (*TYPE LEFT)) A GRDLIN((*POS (*DS3 19 80 16)) + A (*TYPE LEFT)) *(1)-2. Ε‰Ίs‰‘ό ( Šw—πEE—π ) *( ‰‘ό ) A GRDLIN((*POS (*DS3 35 2 78)) + A (*TYPE UPPER)) *(2) ‰Eγ‚ΜŒrό *(2)-1. ‰EcŒrό *( cό ) A GRDLIN((*POS (*DS3 4 82 5)) + A (*TYPE LEFT)) *( cό ) A GRDLIN((*POS (*DS3 4 160 5)) + A (*TYPE LEFT)) *(2)-2. ‰E‰‘Œrό A GRDLIN((*POS (*DS3 9 82 78)) + A (*TYPE UPPER))