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 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(14) SFLPAG(13)
A 40 SFLCLR
A 41 SFLDSPCTL SFLDSP
A 41 SFLEND(*MORE)
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)
¥³¥á¥ó¥È¤ò¤«¤¯