A***************************************************************** A REF(EX0020P) A CHGINPDFT(CS) A PRINT(QSYSPRT) A INDARA A DSPSIZ(24 80 *DS3) A CA03(03 'END') A R SFREC01 SFL A TEXT('SFÌÀºÙ¥ì¥³¡¼¥É') A RRN1 4S 0H TEXT('â') A GYO 4S 0O 8 2TEXT('â') A EX2010 R O 8 8 A EX2020 R O 8 12 A EX2030 R O 8 33EDTCDE(J) A A R SFCTL01 SFLCTL(SFREC01) A TEXT('SF¥³¥ó¥È¥í¡¼¥ë') A SFLSIZ(13) SFLPAG(13) A 40 SFLCLR A N40 SFLDSPCTL SFLDSP A ROLLUP(14 '¼¡ÊÇ') A ROLLDOWN(15 'Á°ÊÇ') A 1 27'EX0020P¾È²ñ' A DSPATR(HI RI) A* A 7 2'â' A DSPATR(HI) A 7 7'CODE' A DSPATR(HI) A 7 12'NAME' A DSPATR(HI) A 7 53'PRICE' A DSPATR(HI)
H Y/ 1 FEX0041D CF E WORKSTN F RRN1 KSFILE SFREC01 FEX0020P IF E K DISK C*½é´ü½èÍý C Z-ADD*ZERO EOFRRN 40 EOF¤ÎRRN C Z-ADD1 WKPAG 40 PAGE C EXSR K1 ¥Õ¥¡¥¤¥ëREAD C*¥µ¥Ö¥Õ¥¡¥¤¥ëɽ¼¨ C LOOP1 TAG C EXFMTSFCTL01 C*½ªÎ»¥Á¥§¥Ã¥¯ C 03 SETON LR C LR RETRN C* C *IN14 IFEQ *ON ROLLUP C EOFRRN CABNE*ZERO LOOP1 EOF¤Ê¤éLOOP C ADD 1 WKPAG PAGE++ C EXSR K1 ROLLUP C ENDIF C *IN15 IFEQ *ON C WKPAG CABEQ1 LOOP1 1PAGE¤Ê¤éLOOP C SUB 1 WKPAG PAGE-- C EXSR K2 ROLLDOWN C EXSR K1 ROLLUP C ENDIF C* C GOTO LOOP1 C*********************************************** C*¥Õ¥¡¥¤¥ë¤òÆɤó¤Ç¥µ¥Ö¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤¹ROLLUP C K1 BEGSR C SETON 40 SFL½é´ü²½ C WRITESFCTL01 C SETOF 40 SFLɽ¼¨ C*¥Ú¡¼¥¸·×»» C WKPAG SUB 1 WK1 40 C WK1 MULT 13 WK2 40 C* C 1 DO 13 RRN1 C READ EX2R 98 C 98 RRN1 ADD 13 EOFRRN C 98 LEAVE C RRN1 ADD WK2 GYO ¹ÔÈÖ¹æ C WRITESFREC01 C ENDDO C K1END ENDSR C*********************************************** C*ÌÀºÙÎó¿ôµÕ½ç¤ËÆɤ߹þ¤àROLLDOWN C K2 BEGSR C EOFRRN IFEQ *ZERO Ä̾ïÌá¤ê C Z-ADD26 ENDRRN 40 C ELSE EOFÌᤷ C Z-ADDEOFRRN ENDRRN C Z-ADD*ZERO EOFRRN C *HIVAL SETGTEX2R C ENDIF C 1 DO ENDRRN C READPEX2R 98 C 98 *LOVAL SETLLEX2R C 98 LEAVE C ENDDO C ENDSR
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
iYTlG0 I really enjoy the blog article.Really thank you! Want more.
913sqO Thanks a lot for the blog article.Thanks Again. Much obliged.