GENERATE SUBROUTINE POOL的例子

SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; }
DATA: PROG TYPE STRING,
TAB TYPE STANDARD TABLE OF STRING,
MESS TYPE STRING,
SID TYPE STRING.
DATA NUM TYPE P.
DATA lstring TYPE string.
DEFINE APP.
APPEND &1 TO TAB.
END-OF-DEFINITION.
lstring = '200 + 300 / 2 - ( 101 * 3 ).'.
APP: 'REPORT subpool.',
'DATA NUM TYPE P.',
" `LOAD-OF-PROGRAM.`,
'START-OF-SELECTION.',
'FORM RP1 CHANGING NUM.',
" 'EXPORT NUM TO MEMORY ID ''NUM''.',
'NUM = ',
lstring ,
'ENDFORM.'.
GENERATE SUBROUTINE POOL TAB NAME PROG
MESSAGE MESS
SHORTDUMP-ID SID.
PERFORM RP1 IN PROGRAM (PROG) CHANGING NUM .
"IMPORT NUM FROM MEMORY ID 'NUM'.
"FREE MEMORY ID 'NUM'.
WRITE NUM.