HCD 
.PROC,HCD*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMPROC 
. 
  
* HCD - 819 PP DRIVER 
*CALL     PSRLEV
* 
  
.*
.*  START HCD VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,HCD,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        HCD. 
EXIT. 
REVERT(ABORT)  HCD. 
  
  
.DATA,ZZZPROC 
.PROC,HCD.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=ZHCD,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=HCD) 
COMPASS(A,I,S=0,L=LIST) 
RETURN(COMPILE) 
BEGIN(PRDOUT,INSTALL,PRDNAME=ZHCD,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR2,INSTALL,DIR=$*I,PP/BCL,$) 
BEGIN(SAVELGO,INSTALL,PRDNAME=ZHCD) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  HCD. 
EXIT. 
REVERT(ABORT)  HCD. 
*WEOR 
