Tutorial › Programs That Copy a Screen Image to a Data Set › Copy the Data into a Data Set Member

Copy the Data into a Data Set Member

Program SCREEN2, shown below, is scheduled by the first program, SCREEN1. This program is executed in a TSO ISPF session and copies the data from the array created in the first program into a data set member.

        OPTION      FLOW,OFF 
        OPTION      TERM,ON 
        OPTION      MAXI,9999 
ELOOP   COMPARE     &SCREEN(31,14),'PRIMARY OPTION' 
        BRANCH      EQ,EDIT 
        PF          3 
        BRANCH      ANY,ELOOP        KEEP BACKING UP 
* 
EDIT    KEY         '2'              SELECT EDIT 
        ENTER                        ENTER 
        HOME                         PRESS THE HOME KEY 
        TABF        8                TAB TO 'OTHER DSN' 
        KEY         '''TPX.USER.PANELS(SCREEN)''' 
        ENTER                        GO INTO EDIT 
        KEY        'CAPS OFF'        GO TO CAPS OFF 
        ENTER 
        NL          1                TAB TO FIRST LINE 
        KEY         'I'              INSERT A LINE (letter "i")
        ENTER 
        TABF        1                PLACE THE CURSOR IN THE FIRST
        TABB        1                POSITION OF THE LINE (AFTER INSERT)
        SET         A1,1             SET COUNTER 
* 
*EVERYTHING IS SET UP. NOW LOOP THROUGH THE LINES. 
* 
KLOOP1  KEY         &DATA(&A1)(1,70)) KEY ONE LINE 
        ADD         A1,1              NEXT LINE 
        COMPARE     A1,&LINECT        ARE WE DONE?
        BRANCH      GT,STOP           YES 
        ENTER                         MAKES A NEW LINE 
        TABF        1                 PLACE THE CURSOR IN THE FIRST
        TABB        1                 POSITION OF THE LINE (AFTER INSERT)
        BRANCH      ANY,KLOOP1        CONTINUE 
* 
STOP    UDELETE     LINECT            DELETE LINE COUNT 
        UDELETE     DATA              DELETE ARRAY            STOP