*COMDECK     COMPRFX    - INITIALISE CAPSULE PREFIX TABLE.
          B1=1
          IPARAMS 
          LIST   F,X
          TITLE  PRFX - INITIALISE CAPSULE PREFIX TABLE.
          COMMENT  INITIALISE CAPSULE PREFIX TABLE. 
 PRFX     SPACE  4,8
**        PRFX  -  INITIALISE CAPSULE PREFIX TABLE. 
* 
*         R. H. GOODELL.     76/07/01.
* 
*         PRESETS ALL FIELDS IN CAPSULE PRFX TABLE IMAGE. 
  
  
 VER      MICRO  1,3,*3.2*         DDL VERSION NUMBER                   000190
 LEV      MICRO  3,3,*"MODLEVEL"*  MODIFICATION LEVEL 
  
          ENTRY  PRFX        XDEF 
 PRFX     BSS    0              ARRAY PRFX (15) ; 
          LOC    0                 BEGIN
          VFD    12/7700B          ITEM PRFXTYPE   U ( 0, 0, 12) ;
          VFD    12/WDCT           ITEM PRFXWDCT   U ( 0,12, 12) ;
          VFD    36/
          VFD    42/7L**           ITEM PRFXCAP    C ( 1, 0,  7) ;
          VFD    18/
 DATE     DATA   H=YY/MM/DD.*=     ITEM PRFXDATE   C ( 2, 0, 10) ;
 TIME     DATA   H=HH.MM.SS. =     ITEM PRFXTIME   C ( 3, 0, 10) ;
          DATA   H="OS.ID"=        ITEM PRFXOSID   C ( 4, 0, 10) ;
 PROC     VFD    30/5H  DDL        ITEM PRFXPROC   C ( 5, 0,  5) ;
          VFD    30/5H  "VER"      ITEM PRFXPVER   C ( 5, 5,  5) ;
          VFD    30/5H+"LEV".      ITEM PRFXPLEV   C ( 6, 0,  5) ;
          VFD    30/5H             ITEM PRFXMACH   C ( 6, 5,  5) ;
          VFD    6/1HC             ITEM PRFXTREC   C ( 7, 0,  1) ;
          VFD    54/9H             ITEM PRFXHDEP   C ( 7, 1,  9) ;
          DATA   0H**,0H**,0H**    ITEM PRFXSCHEMA C ( 8, 0, 30) ;
          DATA   0H**,0H**,0H**    ITEM PRFXSUBSCH C (11, 0, 30) ;
          VFD    30/5H**           ITEM PRFXKIND   C (14, 0,  5) ;
          VFD    30/5H**           ITEM PRFXRECO   C (14, 5,  5) ;
          LOC    *O                END
 WDCT     EQU    *-PRFX-1 
 HEAD     SPACE  4,8
**        PRESETS ALL FIELDS IN CAPSULE HEAD TABLE IMAGE ALSO.
  
  
          ENTRY  HEAD        XDEF 
 HEAD     BSS    0              ARRAY HEAD (3) ;
          LOC    0                 BEGIN
          VFD    12/6000B          ITEM HEADTYPE   U (0,  0, 12) ;
          VFD    12/**             ITEM HEADNEPT   U (0, 12, 12) ;
          VFD    12/**             ITEM HEADNEXT   U (0, 24, 12) ;
          VFD    6/ 
          VFD    18/**             ITEM HEADLENGTH I (0, 42, 18) ;
          VFD    42/7L**           ITEM HEADGROUP  C (1,  0,  7) ;
          VFD    18/**             ITEM HEADEPTFWA I (1, 42, 18) ;
          VFD    42/7L**           ITEM HEADCAP    C (2,  0,  7) ;
          VFD    18/**             ITEM HEADRELFWA I (2, 42, 18) ;
          LOC    *O                END
 PRFXA    SPACE  4,8
**        PRFXA - PREFIX INITIALISATION IN ASSEMBLY LANGUAGE. 
* 
*         CALLS  NONE.
  
  
 PRFXA    SUBR   =           ENTRY/EXIT 
          SA1    =XHDR4 
          SA2    A1+1        MOVE PROCESSOR NAME, VERSION, MOD LEVEL
          BX6    X1          FROM PAGE HEADER LINE IMAGE
          LX7    X2          TO CAPSULE PRFX TABLE IMAGE
          SA6    PRFX+PROC
          SA7    A6+1 
          SA1    =XHDR5      H= YY/MM/DD.=
          SA2    =XHDR6      H=*HH.MM.SS.=
          MX3    -6 
          LX1    6           H=YY/MM/DD. =
          LX2    6           H=HH.MM.SS.*=
          BX6    -X3*X1      H=--------- =
          BX7    -X3*X2      H=---------*=
          BX1    X3*X1       H=YY/MM/DD.-=
          BX2    X3*X2       H=HH.MM.SS.-=
          BX7    X1+X7       H=YY/MM/DD.*=
          BX6    X2+X6       H=HH.MM.SS. =
          SA7    PRFX+DATE   STORE SHIFTED DATE AND TIME
          SA6    PRFX+TIME
          JP     EXIT.       RETURN 
  
  
          END 
