*DECK CALLCC
*CALL CALLSYS 
*CALL NET$MAC 
*CALL NP$SYM
*CALL     LV7CALL 
*CALL     GETLIDT 
*CALL     GETPIDA 
*CALL     GETLIDC 
*CALL     SETPIDA 
*CALL MTS 
*CALL CDZ 
