RXSTART - REXX exec used to set screens at the beginning of a session

RXSTART.rex

/* REXX */                                                                  
/* REXX RXSTART */                                                          
/*-----------------------------------------------------------------------*/ 
/* RXSTART - CREATE MANY SPLIT SCREENS                                   */ 
/* USAGE: ADD THE FOLLOWING TO YOUR ISPF ZSTART VARIABLE (OPTION 7.3)    */ 
/*        ISPF;6;EX 'HLQUAL.REXX.EXEC(RXSTART)'                          */ 
/*        REPLACE HLQUAL.REXX.EXEC WITH THE PDS OF YOUR REXX FILES      */ 
/*-----------------------------------------------------------------------*/ 
ADDRESS ISPEXEC                                                             
                                                                            
/* FOR EVERY SCREEN GIVE COMMAND OR OPTION : SCREEN NAME */                 
SPLIT.1 = "3.4:DSLIST1"                                                        
SPLIT.2 = "3.4:DSLIST2"                                                        
SPLIT.3 = "9:SDSF"                                                             
SPLIT.4 = "I.FM:FILEMGR"                                                       
OPTION  = ""                                                                   
NUM_LINES = 4                                                               
                                                                            
DO I=1 TO NUM_LINES                                                         
   PARSE VAR SPLIT.I CMD ":" NAME                                              
   IF I = NUM_LINES THEN                                 
   DO                                                    
      OPTION="1"                                            
      "SELECT PGM(ISPSTRT) PARM("CMD";SWAP "OPTION")"       
   END                                                   
   ELSE                                                  
      "SELECT PGM(ISPSTRT) PARM("CMD";SWAP)"             
END                                                      
                                                          
SAY 'SCREENS HAVE BEEN CREATED'