Sample Programs › A Program That Prints a PDS Member from ISPF Edit or Browse

A Program That Prints a PDS Member from ISPF Edit or Browse

The following ACL/E program will generate a quick print request of a PDS member from ISPF edit or browse:

        OPTION FLOW,OFF 
        OPTION TERM,ON 
        HOME                     PUT CURSOR IN COMMAND LINE 
        UP 1                     LOCATE START OF THE 
        LEFT 3                   DATA SET NAME 
        SET A1,&CURSOR           NOTE ITS LOCATION 
        SET LOC,&CURSOR          SET LOC VARIABLE FOR SEARCHF 
        SEARCHF ')'              LOOK FOR PAREN IN CURRENT FIELD 
        BRANCH NE,NOMEMBER       IF NOT FOUND, END PROGRAM 
        SET A2,&LOC              SET A2 TO LOCATION OF RIGHT PAREN 
        SUB A2,A1                SET A2 TO LENGTH UP TO RIGHT PAREN 
        ADD A2,1                 ADD 1 FOR THE RIGHT PAREN 
        HOME                     PUT CURSOR ON THE COMMAND LINE 
        KEY 'TSO PRINTO ''&SCREEN(&A1,&A2)''' 
        ENTER                    PRINT THE MEMBER 
        STOP 
NOMEMBR OUTPUT 'MEMBER NAME NOT SPECFIED',2/16 
        STOP                     PRINT ERROR MESSAGE AND STOP