*DECK PRDC
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQCAF 
USETEXT COMQDEF 
USETEXT COMQFIL 
    PROC PRDC;
      BEGIN #PRDC#
# 
**    PRDC - PROCESS RFT DC PARAMETER (ATTRIBUTE 17)
* 
*     ENTRY FILEOTY IS "OUTPUT DEVICE TYPE" (PSEUDO DISPOSITION CODE) 
*           RECEIVED ON RFT.
* 
*     EXIT  FILEDCC IS REAL DISPOSITION CODE. 
*           FILEECS IS EXTERNAL CHARACTERISTICS.
*           FILEICS IS INTERNAL CHARACTERISTICS.
* 
*     PROCESS 
*         SEE PCM00.
# 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;
        END 
# 
****  XREF END
# 
  
      ITEM I          I;           # LOOP VARIABLE #
  
        $BEGIN
        NAME("PRDC"); 
        $END
  
      I = 0;
      DC$DC[MAXDCV] = FILEOTY;
      ASLONGAS DC$DC[I] NE DC$DC[MAXDCV]
      DO
        BEGIN 
        I = I + 1;
        END 
  
      FILEDCC = DC$DSPDC[I];       # SET DSP DISPOSITION CODE # 
      FILEECS = DC$DEFEC[I] - O"33";  # SET DEFAULT EC #
      FILEICS = 0;
      IF (DC$TYPE[I] EQ "S")       # IF SPECIAL TYPE #
        OR ( (DC$TYPE[I] EQ "C")   #   OR BINARY/80-COL PUNCH # 
            AND (DC$DEFEC[I] NE "0") )
      THEN
        BEGIN 
        FILEICS = 2;               # SET IC=BIN # 
        END 
  
      END  # PRDC # 
TERM
