*COMDECK  SDD 
          TITLE  SDD  -  SEQUENCE DEFAULT DATA FILE NAME
**        SDD  -  SEQUENCE DEFAULT DATA FILE NAME 
* 
*         USE THE CURRENT PROCEDURE NESTING LEVEL 
*         TO DETERMINE THE LAST TWO CHARACTERS OF THE 
*         DEFAULT DATA FILE NAME. 
* 
*         EXIT   - FILEDF = DEFAULT NAME
*                - DATAFIL= DEFAULT NAME
* 
  
 SDD      BSSZ   1
          SA5    =0L"M.FNDAT"  BASE NAME FOR DATA FILE
          SA4    SNVPNL 
          MX0    6
          LX0    6+18 
          BX7    X0*X5       SEVENTH CHARACTER
          BX5    -X0*X5      CLEAR THE SEVENTH CHARACTER
          LX0    6
          SB4    X4          B4= PNL
          BX6    X0*X5       SIXTH CHARACTER
          BX5    -X0*X5      CLEAR SIXTH CHARACTER
          AX7    18 
          AX6    18+6        SIXTH CHAR. OF BASE
          SB7    X7 
          SB6    X6 
          SB5    1R9
 SDD1     BSS 
          SB3    B4+B7
          GE     B5,B3,SDD2 
  
          SB6    B6+B1
          SB2    B5-B7
          SB7    B0 
          SB4    B4-B2
          JP     SDD1 
  
 SDD2     BSS 
          SX7    B3          SEVENTH CHAR.
          SX6    B6          SIXTH CHAR.
          SA2    FILEDF 
          LX7    18 
          LX6    18+6 
          MX1    -18
          BX7    X6+X7
          BX2    -X1*X2 
          BX7    X5+X7
          BX6    X2+X7
          SA7    DATAFIL     STORE FILE NAME
          BX5    X6 
          SX2    FILEDF 
          RJ     =XIOFET     RESET FET FIELDS 
  
          JP     SDD         EXIT 
