Connelley's HomeRight ArrowProgrammer's ToolboxRight ArrowIBM S390 REXX Example

   File  Edit  Confirm  Menu  Utilities  Compilers  Test  Help                  
 -------------------------------------------------------------------------------
 EDIT       JCONN.CLIST(HTM) - 01.06                           Jim Connelley
 Command ===>                                                  Scroll ===> CSR 
 ****** ***************************** Top of Data ******************************
 000100 /* REXX */
 000200 CAPTION = "THIS IS THE CAPTION"
 000300 ISPEXEC "VPUT (CAPTION) SHARED"
 000400 ADDRESS TSO "ALLOC DD(ISPFHTML)  DS(ISPFCAP.HTM) OLD"
 000410 ADDRESS TSO "ALLOC DD(MBR$OUT)   DS(HTML(HTML))  SHR"
 000500 ISPEXEC "SELECT PGM(ISPFHTML) PARM(DOWNLOAD)"
 000800 DROP MBR.
 000850 "EXECIO * DISKR ISPFHTML  (STEM MBR. FINIS"
 000860 "EXECIO * DISKW MBR$OUT   (STEM MBR. FINIS"
 000861 DROP MBR.
 000880 ADDRESS TSO "FREE DD(MBR$OUT)"
 000890 ADDRESS TSO "FREE DD(ISPFHTML)"
 000900 ISPEXEC "VIEW DATASET('JCONN.HTML(HTML)')"
 001100 EXIT 0
 ****** **************************** Bottom of Data ****************************