*DECK ALMASTER
*CALL ALMAIN
*CALL ALRDDIRS
*CALL ALRDOBJCT 
*CALL ALLDPH1 
*CALL ALDLETOPH 
*CALL ALLODMAIN 
*CALL ALOUTDIRS 
