*DECK     PDP 
          IDENT  PDP
          TITLE  PDP - PROCESS DATA DECLARATION PARAMETER.
          SST 
          SYSCOM B1 
  
  
          ENTRY  PDP
  
          COMMENT  PROCESS DATA DECLARATION PARAMETER.
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
          SPACE  4,10 
**        PDP - PROCESS DATA DECLARATION PARAMETER. 
* 
*         J. G. CLARK        80/04/25.
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL COMCMAC 
*CALL COMCAPR 
*CALL COMCCAE 
*CALL COMCPTF 
 PDP      SPACE  4,10 
**               PDP MAPS THE DATA DECLARATION TEXT TO A VALUE
*         REQUIRED FOR NETXFR.  THE TEXT IS A TWO CHARACTER 
*         MNEMONIC REPRESENTING THE FILE DATA FORMAT.  THE MAPPED 
*         VALUE IS STORED IN THE COMMON BLOCK *FTFCOM*
* 
*         ENTRY  (A1) IS THE PARAMETER LIST ADDRESS.
* 
*         PARAMETER LIST FORMAT 
*         ATTR   - ATTRIBUTE VALUE OF THIS PARAMETER. 
*         QUAL   - THE PARAMETER QUALIFIER. 
*         TXTL   - LENGTH OF THE TEXT PORTION OF THIS PARAMETER.
*         TEXT   - THE PARAMETER TEXT CONTAINING THE MNEMONIC.
* 
*         EXIT   DDXFR IN *PTFCOM* CONTAINS THE MAPPED VALUE. 
*                (X1) IS AN ERROR MESSAGE ADDRESS IF THE MNEMONIC DOES
*                NOT MAP TO A VALUE.  OTHERWISE ZERO. 
* 
*         USES   A - 1,6. 
*                B - NONE.
*                X - 1,6. 
* 
*         CALLS  DDC. 
  
  
 .1       DECMIC /AP/TYPE,2 
  
 PDP1     SX6    3R".1".
          SX1    PEPM        ERROR MESSAGE ADDRESS
          LX6    59-17
          SA6    PEPM+3      SET PARAMETER NUMBER 
  
 PDP      SUBR               ENTRY/EXIT 
          SA1    A1+3 
          RJ     =XDDC       CONVERT DATA DECLARATION 
          MI     X6,PDP1     IF THE MNEMONIC IS INVALID 
          SA6    DDXFR
          SX1    B0+
          EQ     PDPX        EXIT WITH NO ERROR 
          SPACE  4
          END 
