PROGRAM SINNED C C This program hopefullys sends a data packet to a task to C satisfy a WTSE$S so that the program might continue. C DIMENSION IDAT(13) LOGICAL*1 NAME(6) DATA ISSUC, IEINS, IEUPN, IEIEF, IEADP, IESDP 1 / 1, -2, -1, -97, -98, -99 / C C - GET TASK NAME. 100 WRITE(5,110) 110 FORMAT(/,'$Task name to SEND to: ') READ(5,120,END=300) NAME 120 FORMAT(6A1) C C - CONVERT NAME TO RAD-50 AND SEND ZEROED DATA PACKET. CALL IRAD50( 6, NAME, TASK ) CALL SEND( TASK, IDAT, 1, IDS ) C C - WRITE DSW RETURN CODE. IF( IDS .EQ. ISSUC ) GO TO 200 IF( IDS .EQ. IEINS ) WRITE(5,320) IF( IDS .EQ. IEUPN ) WRITE(5,330) IF( IDS .EQ. IEIEF ) WRITE(5,340) IF( IDS .EQ. IEADP ) WRITE(5,350) IF( IDS .EQ. IESDP ) WRITE(5,360) GO TO 100 C 200 WRITE(5,310) 300 STOP C 310 FORMAT(' IS.SUC -- Successful completion') 320 FORMAT(' IE.INS -- Receiver task not installed') 330 FORMAT(' IE.UPN -- Insufficient dynamic memory') 340 FORMAT(' IE.IEF -- Invalid event flag number (>64 or <0)') 350 FORMAT(' IE.ADP -- Part of the DPB or data block is out', 1 ' of the issuing',/, 1 ' task''s address space') 360 FORMAT(' IE.SDP -- DIC or DPB size is invalid') END