J E S 2   J O B   L O G


10.03.36 JOB   15  $HASP373 SINE#FOW STARTED - INIT  6 - CLASS C - SYS TK4-
10.03.36 JOB   15  IEF403I SINE#FOW - STARTED - TIME=10.03.36
10.03.36 JOB   15  IEFACTRT - Stepname  Procstep  Program   Retcode
10.03.36 JOB   15  SINE#FOW   CLG       GO        WATFIV    RC= 0000
10.03.36 JOB   15  IEF404I SINE#FOW - ENDED - TIME=10.03.36
10.03.36 JOB   15  $HASP395 SINE#FOW ENDED


------ JES2 JOB STATISTICS ------


 06 JAN 19 JOB EXECUTION DATE


        68 CARDS READ


       218 SYSOUT PRINT RECORDS


         0 SYSOUT PUNCH RECORDS


      0.00 MINUTES EXECUTION TIME

    1     //SINE#FOW JOB 'S322-0C4','WFJM',                                       JOB   15
          //      CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1),
          //      REGION=256K,TIME=(1,0),PRTY=8
    2     //CLG  EXEC WATFIV
    3     XXWATFIV PROC PROG=WATFIV,LIB='FUNLIB',WLIB='WATLIB',
          XX            JB='JOBLIB',PFX='WATFIV'
          **********************************************************************
          ***
          *** Name: SYS2.PROCLIB(WATFIV)
          ***
          *** Desc: execute WATFIV FORTRAN programs
          ***
          **********************************************************************
    4     XXGO     EXEC PGM=&PROG
    5     XXSTEPLIB  DD DSN=&PFX..&JB,DISP=SHR
    6     XXWATLIB   DD DSN=&PFX..&LIB,DISP=SHR
    7     XX         DD DSN=&PFX..&WLIB,DISP=SHR
    8     XXFT01F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA
    9     XXFT02F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA
   10     XXFT03F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA
   11     XXFT04F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA
   12     XXFT05F001 DD DDNAME=SYSIN
   13     XXFT06F001 DD SYSOUT=*,DCB=(RECFM=FA,BLKSIZE=133)
   14     XXFT07F001 DD SYSOUT=B
   15     //SYSIN DD *
          //

 STMT NO. MESSAGE
-
    4     IEF653I SUBSTITUTION JCL - PGM=WATFIV
    5     IEF653I SUBSTITUTION JCL - DSN=WATFIV.JOBLIB,DISP=SHR
    6     IEF653I SUBSTITUTION JCL - DSN=WATFIV.FUNLIB,DISP=SHR
    7     IEF653I SUBSTITUTION JCL - DSN=WATFIV.WATLIB,DISP=SHR
IEF236I ALLOC. FOR SINE#FOW GO CLG
IEF237I 240  ALLOCATED TO STEPLIB
IEF237I 191  ALLOCATED TO SYS00016
IEF237I 240  ALLOCATED TO WATLIB
IEF237I 240  ALLOCATED TO
IEF237I 170  ALLOCATED TO FT01F001
IEF237I 140  ALLOCATED TO FT02F001
IEF237I 190  ALLOCATED TO FT03F001
IEF237I 180  ALLOCATED TO FT04F001
IEF237I JES2 ALLOCATED TO FT05F001
IEF237I JES2 ALLOCATED TO FT06F001
IEF237I JES2 ALLOCATED TO FT07F001
IEF142I SINE#FOW GO CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I   WATFIV.JOBLIB                                KEPT          *--------0
IEF285I   VOL SER NOS= PUB000.
IEF285I   SYS1.UCAT.MVS                                KEPT          *--------0
IEF285I   VOL SER NOS= MVSCAT.
IEF285I   WATFIV.FUNLIB                                KEPT          *--------4
IEF285I   VOL SER NOS= PUB000.
IEF285I   WATFIV.WATLIB                                KEPT          *--------0
IEF285I   VOL SER NOS= PUB000.
IEF285I   SYS19006.T100336.RA000.SINE#FOW.R0000001     DELETED       *--------0
IEF285I   VOL SER NOS= WORK01.
IEF285I   SYS19006.T100336.RA000.SINE#FOW.R0000002     DELETED       *--------0
IEF285I   VOL SER NOS= WORK00.
IEF285I   SYS19006.T100336.RA000.SINE#FOW.R0000003     DELETED       *--------0
IEF285I   VOL SER NOS= WORK03.
IEF285I   SYS19006.T100336.RA000.SINE#FOW.R0000004     DELETED       *--------0
IEF285I   VOL SER NOS= WORK02.
IEF285I   JES2.JOB00015.SI0101                         SYSIN
IEF285I   JES2.JOB00015.SO0102                         SYSOUT
IEF285I   JES2.JOB00015.SO0103                         SYSOUT
IEF373I STEP /GO      / START 19006.1003
IEF374I STEP /GO      / STOP  19006.1003 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC VIRT   256K SYS   216K
************************************************************************************************************************************
*     1. Jobstep of job: SINE#FOW    Stepname: GO          Program name: WATFIV     Executed on 06.01.19 from 10.03.36 to 10.03.36 *
*         elapsed time  00:00:00,08                      CPU-Identifier:  TK4-           Page-in:      0                           *
*             CPU time  00:00:00,02               Virtual Storage used:    256K         Page-out:      0                           *
*           corr. CPU:  00:00:00,02   CPU time has been corrected by  1 / 1,0  multiplier                                          *
*                                                                                                                                  *
*     I/O Operation                                                                                                                *
*     Number of records read via DD * or DD DATA:     61                                                                           *
*     240.......0 191.......0 240.......4 240.......0 170.......0 140.......0 190.......0 180.......0 DMY.......0 DMY.......0      *
*     DMY.......0                                                                                                                  *
*                                                                                                                                  *
*                                          Charge for step (w/o SYSOUT):          0,03                                             *
************************************************************************************************************************************
IEF375I  JOB /SINE#FOW/ START 19006.1003
IEF376I  JOB /SINE#FOW/ STOP  19006.1003 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC

         $JOB           SINE#FOW,T=(1,0),P=100,CHECK
         C        1         2         3         4         5         6         712--------
         C2345*78901234567890123456789012345678901234567890123456789012345678901234567890
         C $Id: sine_for.f 964 2017-11-19 08:47:46Z mueller $
         C
         C Copyright 2017- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
         C
         C This program is free software; you may redistribute and/or modify
         C it under the terms of the GNU General Public License version 3.
         C See Licence.txt in distribition directory for further details.
         C
         C  Revision History:
         C Date         Rev Version  Comment
         C 2017-08-09   934   1.0    Initial version
         C 2017-07-30   931   0.1    First draft
         C
         C --- main program ---------------------------------------------------
         C     PROGRAM SINE
     1         INTEGER PLOT(81)
     2         INTEGER I,J,ISIN,ICOS
     3         REAL*4 X,XRAD,FSIN,FCOS
     4         INTEGER CBL,CPL,CDO,CCO,CST,CHA
     5         DATA CBL/1H /,CPL/1H+/,CDO/1H./,CCO/1H:/,CST/1H*/,CHA/1H#/
         C
     6         WRITE(6,9000)
     7         WRITE(6,9010)
         C
         C Fortran IV(1966): DO limits must all to be > 0 -- FORTRAN-G enforces this
     8         DO 100 I=1,61
     9           X    = 6. * (I-1)
    10           XRAD = X/57.2957795131
    11           FSIN = SIN(XRAD)
    12           FCOS = COS(XRAD)
    13           DO 200 J=1,81
    14             PLOT(J) = CBL
    15    200    CONTINUE
    16           PLOT( 1) = CPL
    17           PLOT(21) = CDO
    18           PLOT(41) = CCO
    19           PLOT(61) = CDO
    20           PLOT(81) = CPL
    21           ISIN = 41.5 + 40. * FSIN
    22           ICOS = 41.5 + 40. * FCOS
    23           PLOT(ISIN) = CST
    24           PLOT(ICOS) = CHA
    25           WRITE(6,9020) X,FSIN,FCOS,PLOT
    26    100  CONTINUE
    27         WRITE(6,9010)
    28         STOP
         C
    29    9000 FORMAT(1X,'     x   sin(x)   cos(x)   ',
              *         '-1                -0.5                  0',
              *         '                 +0.5                 +1')
    30    9010 FORMAT(1X,'                           ',
              *         '+-------------------.-------------------:',
              *         '-------------------.-------------------:')
    31    9020 FORMAT(1X,F6.0,1X,F8.5,1X,F8.5,3X,81A1)
         C
    32         END

         $ENTRY
     x   sin(x)   cos(x)   -1                -0.5                  0                 +0.5                 +1
                           +-------------------.-------------------:-------------------.-------------------:

    0.  0.00000  1.00000   +                   .                   *                   .                   #
    6.  0.10453  0.99452   +                   .                   :   *               .                   #
   12.  0.20791  0.97815   +                   .                   :       *           .                  #+
   18.  0.30902  0.95106   +                   .                   :           *       .                 # +
   24.  0.40674  0.91355   +                   .                   :               *   .                #  +
   30.  0.50000  0.86603   +                   .                   :                   *              #    +
   36.  0.58779  0.80902   +                   .                   :                   .   *       #       +
   42.  0.66913  0.74314   +                   .                   :                   .      *  #         +
   48.  0.74314  0.66913   +                   .                   :                   .      #  *         +
   54.  0.80902  0.58779   +                   .                   :                   .   #       *       +
   60.  0.86603  0.50000   +                   .                   :                   #              *    +
   66.  0.91355  0.40674   +                   .                   :               #   .                *  +
   72.  0.95106  0.30902   +                   .                   :           #       .                 * +
   78.  0.97815  0.20791   +                   .                   :       #           .                  *+
   84.  0.99452  0.10453   +                   .                   :   #               .                   *
   90.  1.00000  0.00000   +                   .                   #                   .                   *
   96.  0.99452 -0.10453   +                   .               #   :                   .                   *
  102.  0.97815 -0.20791   +                   .           #       :                   .                  *+
  108.  0.95106 -0.30902   +                   .       #           :                   .                 * +
  114.  0.91355 -0.40674   +                   .   #               :                   .                *  +
  120.  0.86603 -0.50000   +                   #                   :                   .              *    +
  126.  0.80902 -0.58779   +               #   .                   :                   .           *       +
  132.  0.74315 -0.66913   +            #      .                   :                   .         *         +
  138.  0.66913 -0.74314   +         #         .                   :                   .      *            +
  144.  0.58779 -0.80902   +       #           .                   :                   .   *               +
  150.  0.50000 -0.86603   +    #              .                   :                   *                   +
  156.  0.40674 -0.91355   +  #                .                   :               *   .                   +
  162.  0.30902 -0.95106   + #                 .                   :           *       .                   +
  168.  0.20791 -0.97815   +#                  .                   :       *           .                   +
  174.  0.10453 -0.99452   #                   .                   :   *               .                   +
  180.  0.00000 -1.00000   #                   .                   *                   .                   +
  186. -0.10453 -0.99452   #                   .               *   :                   .                   +
  192. -0.20791 -0.97815   +#                  .           *       :                   .                   +
  198. -0.30902 -0.95106   + #                 .       *           :                   .                   +
  204. -0.40674 -0.91355   +  #                .   *               :                   .                   +
  210. -0.50000 -0.86603   +    #              *                   :                   .                   +
  216. -0.58778 -0.80902   +       #       *   .                   :                   .                   +
  222. -0.66913 -0.74314   +         #  *      .                   :                   .                   +
  228. -0.74314 -0.66913   +         *  #      .                   :                   .                   +
  234. -0.80902 -0.58779   +       *       #   .                   :                   .                   +
  240. -0.86602 -0.50000   +    *              #                   :                   .                   +
  246. -0.91355 -0.40674   +  *                .   #               :                   .                   +
  252. -0.95106 -0.30902   + *                 .       #           :                   .                   +
  258. -0.97815 -0.20791   +*                  .           #       :                   .                   +
  264. -0.99452 -0.10453   *                   .               #   :                   .                   +
  270. -1.00000 -0.00000   *                   .                   #                   .                   +
  276. -0.99452  0.10453   *                   .                   :   #               .                   +
  282. -0.97815  0.20791   +*                  .                   :       #           .                   +
  288. -0.95106  0.30902   + *                 .                   :           #       .                   +
  294. -0.91355  0.40674   +  *                .                   :               #   .                   +
  300. -0.86603  0.50000   +    *              .                   :                   #                   +
  306. -0.80902  0.58778   +       *           .                   :                   .   #               +
  312. -0.74314  0.66913   +         *         .                   :                   .      #            +
  318. -0.66913  0.74314   +            *      .                   :                   .         #         +
  324. -0.58779  0.80902   +               *   .                   :                   .           #       +
  330. -0.50000  0.86603   +                   *                   :                   .              #    +
  336. -0.40674  0.91355   +                   .   *               :                   .                #  +
  342. -0.30902  0.95106   +                   .       *           :                   .                 # +
  348. -0.20791  0.97815   +                   .           *       :                   .                  #+
  354. -0.10453  0.99452   +                   .               *   :                   .                   #
  360. -0.00000  1.00000   +                   .                   *                   .                   #
                           +-------------------.-------------------:-------------------.-------------------:

CORE USAGE       OBJECT CODE=    2024 BYTES,ARRAY AREA=     324 BYTES,TOTAL AREA AVAILABLE=  149504  BYTES

DIAGNOSTICS        NUMBER OF ERRORS=       0, NUMBER OF WARNINGS=       0, NUMBER OF EXTENSIONS=       0

COMPILE TIME=     0.00 SEC,EXECUTION TIME=     0.00 SEC,     10.03.36    SUNDAY        6 JAN 19    WATFIV - JAN 1976 V1L5


         $STOP