C                                           *--> FROM PRDCOMMON.PDATAS
C   FREQUENTLY USED VARIABLES COMMON BLOCK
      COMMON /PDATAS/ IBLNK,ZAPR,IDSI,MAXREC(10),MONEY,IZAP,IASTR,
     *   LRECLT,LENHED,LENHDC,NUMFIL
C