;SOME MACROS FOR DEFINING CONFIGURATION

DEFINE NAME (A)
<DEFINE NAME1
<CONFIG:  ASCIZ /A/
INTERNAL CONFIG
>
XP A,0
SUBTTL A CONFIGURATION
>

DEFINE DATE (A)
<DEFINE DATE1
<SYSDAT:  ASCIZ /A/
INTERNAL SYSDAT
>>

DEFINE VERSION (A,B)
<DEFINE VERS1
<SYSNUM:  XWD ^D'A,^D'B
XP SYSMOD,^D'A
XP SYSVER,^D'B
INTERNAL SYSNUM
>>

DEFINE CUSPTAPE (A)
<DEFINE CUSP1
<SYSTAP:  SIXBIT /A/
INTERNAL SYSTAP
>>

DEFINE ACPDL (J,CHJN,CHJPDN)
<	  CH'J'N=CHJN
 CH'J'PDN=CHJPDN
>