PGM
              MONMSG CPF0000
 
             ADDLIBLE AF4TOOL
             CALL SPLAF4
             ENDPGM