home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / arcommon.dcl < prev    next >
Text File  |  1984-04-29  |  712b  |  21 lines
  1. /****************************************************************
  2. *                      A/R COMMON AREAS                         *
  3. ****************************************************************/
  4.     DCL    CURDAT CHAR(8) EXTERNAL; /* CURRENT DATE */
  5.     DCL    1 OPENCB1 EXTERNAL,    /*BT-80 OPEN IOCB FOR ARCUSTM*/
  6.           2 IDXDRIVE CHAR(1),
  7.           2 IDXFILE CHAR(8),
  8.           2 IDXTYPE CHAR(3),
  9.           2 NPAGES BIN(6),
  10.           2 PW CHAR(4),
  11.           2 DLYUPD BIT(1),
  12.           2 DRIVES(8) CHAR(1);
  13.     DCL    IDX1 BIN(7) EXTERNAL;    /*BT-80 FILE INDEX # */
  14.     DCL    IOCB1P PTR EXTERNAL;
  15.     DCL    1 IOCB1 EXTERNAL,    /*BT-80 IOCB FOR ARCUSTM*/
  16.           2 KEYPTR1 PTR,
  17.           2 RECPTR1 PTR,
  18.           2 DFLLOC1 CHAR(3),
  19.           2 DUP_KEY1 BIT(1);
  20.     DCL    1 REC1 EXTERNAL,
  21.