*DECK TXTAMCB 
USETEXT COMCBEG 
PROC COMAMCB; 
CONTROL STEXT;
BEGIN 
*CALL COMAMCB 
END 
TERM
