FORTRAN Program Using TSOLNK to Invoke a Command (VS FORTRAN)

Figure 1. FORTRAN Program Demonstrating the Use of TSOLNK to Invoke a Command (VS FORTRAN)

C     THIS FORTRAN PROGRAM WILL INTERFACE WITH THE TSO SERVICE FACILITY.
C     ISSUE COMMAND   LISTD 'SYS1.LINKLIB'   AND THEN PRINT THE
C     COMMAND BUFFER, RETURN CODE, REASON CODE AND ABEND CODE
C     FORTRAN FILE FT06FT001 IS USED FOR OUTPUT
C     THIS PROGRAM WAS COMPILED ON THE VS FORTRAN COMPILER
      EXTERNAL TSOLNK                                              00001000
      INTEGER  TSOLNK                                              00001000
      INTEGER  PARM11,PARM12,PARM13,PARM14                         00001000
      INTEGER  PARM1,PARM3,PARM4,PARM5                             00001000
      CHARACTER*80 PARM2
      CHARACTER*4  FILL

C     PLACE COMMAND IN PARM2
      DATA PARM2  /'LISTD 'SYS1.LINKLIB'/
      DATA FILL /'    '/
C     COMPUTE PARM1
C         SPECIFY RESERVED BITS (ALL ZERO)
      PARM11 = 0
C         SPECIFY AUTHORIZATION = YES TO BE USED
      PARM12 = 0
C         SPECIFY THAT A DUMP IS NOT TO BE TAKEN
      PARM13 = 0
C         SPECIFY THAT A COMMAND IS BEING INVOKED
      PARM14 = 1
C         SPECIFY THAT A PROGRAM IS BEING INVOKED
      PARM14 = 2
C         SPECIFY THAT A REXX EXEC IS BEING INVOKED
      PARM14 = 5
C         FILL IN THE CONTROL BITS OF PARM1
      PARM1 = (PARM11*16**6)+(PARM12*16**4)+(PARM13*16**2)+PARM14

C     PUT THE COMMAND LENGTH INTO THE THIRD PARAMETER
      PARM3 = 80
C     ZERO OUT THE RETURNED VALUES BEFORE THE CALL
      PARM4 = 0
      PARM5 = 0
      PARM6 = 0

C     EXECUTE THE TSO SERVICE FACILITY
      I = TSOLNK(PARM1,PARM2,PARM3,PARM4,PARM5,PARM6)
C     PRINT OUT THE COMMAND EXECUTED
      WRITE (6,100)
100   FORMAT (' ','COMMAND EXECUTED: ')
      WRITE (6,101) FILL,PARM2
101   FORMAT (A4,A80)
      WRITE (6,102) PARM3
102   FORMAT (' ','LENGTH OF COMMAND BUFFER IS ',I6)

C     PRINT OUT THE RETURNED VALUES
      WRITE (6,103) I
103   FORMAT (' ','  THE TSOLNK RETURN CODE IS ',I6)
      WRITE (6,104) PARM4
104   FORMAT (' ','THE FUNCTION RETURN CODE IS ',I6)
      WRITE (6,105) PARM5
105   FORMAT (' ','     THE TSF REASON CODE IS ',I6)
      WRITE (6,106) PARM6
106   FORMAT (' ','          THE ABEND CODE IS ',I6)
      STOP
      END