Programming Tips › Prevent VTAM Buffers from Overloading › Sample Program

Sample Program

To prevent overloading of the VTAM buffers, place an OPTION TERM,OFF statement at an appropriate place in the program.

      OPTION TERM,OFF           DO NOT DISPLAY ACTION 
      SRCHWAIT 'EDIT --- '      AT PDS MEMBER LIST?
      BRANCH NE,STOP            IF NOT, STOP 
      SET A1,&CURSOR            NOTE CURSOR LOCATION 
GO    TABF 2                    TAB 2 LINES 
      COMPARE A1,&CURSOR        CURSOR AT HOME POSITION?
      BRANCH EQ,STOP            YES, END OF LIST 
      KEY 'S'                   SELECT MEMBER
      ENTER 
CHG   KEY 'C ''*'' ''$'' ALL'   CHANGE ALL * TO $ 
      ENTER 
      PF 3                      SAVE CHANGE 
      WAIT 1                    ALLOW OTHER WORK TO DISPATCH 
      BRANCH ANY,GO             PROCESS NEXT MEMBER 
STOP  STOP