Programming Tips › Allow Other Work to be Dispatched › Sample Program

Sample Program

The following sample program uses a WAIT command to allow other work to be dispatched.

      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