/*****************************REXX*************************************/
"NEWSTACK" /* CREATE A NEW DATA STACK FOR INPUT ONLY */
"EXECIO * DISKR DATAIN (FINIS"
QUEUE '' /* ADD A NULL LINE TO INDICATE THE END OF THE INFORMATION */
"EXECIO * DISKW DATAOUT (FINIS"
"DELSTACK" /* DELETE THE NEW DATA STACK */
"FREE F(DATAIN DATAOUT)"
"NEWSTACK" /* CREATE A NEW DATA STACK FOR INPUT ONLY */
"EXECIO * DISKR DATAIN (FINIS"
QUEUE '' /* ADD A NULL LINE TO INDICATE THE END OF THE INFORMATION */
"EXECIO * DISKW DATAOUT (FINIS"
"DELSTACK" /* DELETE THE NEW DATA STACK */
"FREE F(DATAIN DATAOUT)"
But i didnt the result. Please tell me how can I proceed to get this done.