*DECK     PTP 
          IDENT  PTP
          TITLE  PTP - PROCESS TIMEOUT PARAMETER. 
          SST 
          SYSCOM B1 
  
  
          ENTRY  PTP
  
          COMMENT  PROCESS TIMEOUT PARAMETER. 
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
          SPACE  4,10 
**        PTP - PROCESS TIMEOUT PARAMETER.
* 
*         J. G. CLARK        80/03/31.
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL COMCMAC 
*CALL COMCAPR 
*CALL COMCCAE 
*CALL COMCPTF 
 PTP      SPACE  4,10 
**               PTP CONVERTS THE TIMEOUT TIME SENT IN THE TIMEOUT
*         PARAMETER TO THE BINARY TIMEOUT VALUE TO BE USED.  THE TOUT 
*         VARIABLE IN THE COMMON BLOCK *FTFCOM* IS UPDATED
* 
*         ENTRY  (A1) IS THE PARAMETER LIST ADDRESS.
* 
*         PARAMETER LIST FORMAT 
*         ATTR   - ATTRIBUTE OF THE TIMEOUT PARAMETER.
*         QUAL   - QUALIFIER FOR THE TIMEOUT PARAMETER. 
*         TXTL   - LENGTH OF THE TEXT PORTION OF THIS PARAMETER.
*         TEXT   - THE PARAMETER TEXT CONTAINING THE DECIMAL DISPLAY
*                CODED TIMEOUT VALUE. 
* 
*         EXIT   TOUT IN *PTFCOM* CONTAINS THE NEW TIMEOUT VALUE. 
*                (X1) IS ZERO.
* 
*         USES   A - 5,6. 
*                B - 7. 
*                X - 1,5,6. 
* 
*         CALLS  DXB=.
  
  
 .1       DECMIC /AP/TMOUT,2
  
 PTP1     SX6    3R".1".
          SX1    PEPM        SET ERROR MESSAGE ADDRESS
          LX6    59-17
          SA6    PEPM+3      STORE ATTRIBUTE NUMBER 
  
 PTP      SUBR               ENTRY/EXIT 
          SA5    A1+3 
          SB7    B1          SET DECIMAL CONVERSION 
          SA5    X5          SET TEXT TO CONVERT
          RJ     =XDXB=      CONVERT DECIMAL DISPLAY CODE 
          NZ     X4,PTP1     IF ERROR IN CONVERSION 
          SA6    TOUT        SAVE NEW TIMEOUT VALUE 
          MX1    0
          EQ     PTPX        RETURN WITH NO ERROR 
          SPACE  4
          END 
