RPG400 Fdspf CF E WORKSTN
F KINFDS INFDSP
I******************************************************
I* D E F I N E C O N S T A N T *
I******************************************************
I X'31' C F1
I X'32' C F2
I X'33' C F3
I X'34' C F4
I X'35' C F5
I X'36' C F6
I X'37' C F7
I X'38' C F8
I X'39' C F9
I X'3A' C F10
I X'3B' C F11
I X'3C' C F12
I X'B1' C F13
I X'B2' C F14
I X'B3' C F15
I X'B4' C F16
I X'B5' C F17
I X'B6' C F18
I X'B7' C F19
I X'B8' C F20
I X'B9' C F21
I X'BA' C F22
I X'BB' C F23
I X'BC' C F24
I X'BD' C CLEAR
I X'F1' C RECENT
I X'F3' C HELP
I X'F4' C ROLDWN
I X'F5' C ROLUP
I X'F6' C PAGPRT
I X'F8' C BACKSP
I X'3F' C AUTINP
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
IINFDSP DS
I 369 369 PUSHED
RPGIV
FDSPF CF E WORKSTN
F INFDS(INFDSP)
D*****************************************************************
D* D E F I N E C O N S T A N T
D*****************************************************************
D F1 C CONST(X'31')
D F2 C CONST(X'32')
D F3 C CONST(X'33')
D F4 C CONST(X'34')
D F5 C CONST(X'35')
D F6 C CONST(X'36')
D F7 C CONST(X'37')
D F8 C CONST(X'38')
D F9 C CONST(X'39')
D F10 C CONST(X'3A')
D F11 C CONST(X'3B')
D F12 C CONST(X'3C')
D F13 C CONST(X'B1')
D F14 C CONST(X'B2')
D F15 C CONST(X'B3')
D F16 C CONST(X'B4')
D F17 C CONST(X'B5')
D F18 C CONST(X'B6')
D F19 C CONST(X'B7')
D F20 C CONST(X'B8')
D F21 C CONST(X'B9')
D F22 C CONST(X'BA')
D F23 C CONST(X'BB')
D F24 C CONST(X'BC')
D CLEAR C CONST(X'BD')
D RECENT C CONST(X'F1')
D HELP C CONST(X'F3')
D PAGEUP C CONST(X'F4')
D PAGEDOWN C CONST(X'F5')
D PAGPRT C CONST(X'F6')
D BACKSP C CONST(X'F8')
D AUTINP C CONST(X'3F')
D*****************************************************************
D* D E F I N E D A T A - S T R U C T U R E
D*****************************************************************
D*
D* インフォメーションデータ構造
D*
D INFDSP DS
D PUSHED 369 369
|