J E S 2   J O B   L O G


10.03.36 JOB   14  IEF677I WARNING MESSAGE(S) FOR JOB SINE#FOH ISSUED
10.03.36 JOB   14  $HASP373 SINE#FOH STARTED - INIT  6 - CLASS C - SYS TK4-
10.03.36 JOB   14  IEF403I SINE#FOH - STARTED - TIME=10.03.36
10.03.36 JOB   14  IEFACTRT - Stepname  Procstep  Program   Retcode
10.03.36 JOB   14  SINE#FOH   CLG       FORT      IEKAA00   RC= 0000
10.03.36 JOB   14  SINE#FOH   CLG       LKED      IEWL      RC= 0000
10.03.36 JOB   14  SINE#FOH   CLG       GO        PGM=*.DD  RC= 0000
10.03.36 JOB   14  IEF404I SINE#FOH - ENDED - TIME=10.03.36
10.03.36 JOB   14  $HASP395 SINE#FOH ENDED


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


 06 JAN 19 JOB EXECUTION DATE


        70 CARDS READ


       300 SYSOUT PRINT RECORDS


         0 SYSOUT PUNCH RECORDS


      0.00 MINUTES EXECUTION TIME

    1     //SINE#FOH JOB 'S322-0C4','WFJM',                                       JOB   14
          //      CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1),
          //      REGION=256K,TIME=(1,0),PRTY=8
    2     //CLG EXEC FORTHCLG,
          //      PARM.FORT='OPT=2',
          //      PARM.LKED='MAP,LIST,LET'
    3     XXFORTHCLG  PROC SOUT='*'                                               00000100
    4     XXFORT   EXEC  PGM=IEKAA00                                              00000200
    5     XXSYSPRINT DD  SYSOUT=&SOUT                                             00000300
    6     XXSYSPUNCH DD  SYSOUT=B                                                 00000400
    7     XXSYSLIN   DD  DSNAME=&LOADSET,UNIT=SYSSQ,DISP=(MOD,PASS),             *00000500
          XX             SPACE=(400,(200,50),RLSE)                                00000600
    8     //FORT.SYSIN DD *
    9     XXLKED EXEC PGM=IEWL,PARM=(MAP,LET,LIST),COND=(4,LT,FORT)               00000700
   10     XXSYSLIB   DD  DSNAME=SYS1.FORTLIB,DISP=SHR                             00000800
   11     XXSYSPRINT DD  SYSOUT=&SOUT                                             00000900
   12     XXSYSLMOD  DD  DSNAME=&GOSET(MAIN),UNIT=SYSDA,DISP=(,PASS),            *00001000
          XX             SPACE=(3072,(30,10,1),RLSE)                              00001100
   13     XXSYSUT1 DD DSNAME=&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 00001200
   14     XXSYSLIN DD    DSNAME=&LOADSET,DISP=(OLD,DELETE)                        00001300
   15     XX         DD  DDNAME=SYSIN                                             00001400
   16     XXGO  EXEC PGM=*.LKED.SYSLMOD,COND=((4,LT,FORT),(4,LT,LKED))            00001500
   17     XXFT05F001 DD  DDNAME=SYSIN                                             00001600
   18     //GO.FT06F001 DD SYSOUT=*,OUTLIM=5000
          X/FT06F001 DD  SYSOUT=&SOUT                                             00001700
   19     XXFT07F001 DD SYSOUT=B                                                  00001800
   20     //GO.SYSIN DD *
          //

 STMT NO. MESSAGE
-
    5     IEF653I SUBSTITUTION JCL - SYSOUT=*
   11     IEF653I SUBSTITUTION JCL - SYSOUT=*
   18     IEF653I SUBSTITUTION JCL - SYSOUT=*
   16     IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
IEF236I ALLOC. FOR SINE#FOH FORT CLG
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSPUNCH
IEF237I 170  ALLOCATED TO SYSLIN
IEF237I JES2 ALLOCATED TO SYSIN
IEF142I SINE#FOH FORT CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I   JES2.JOB00014.SO0103                         SYSOUT
IEF285I   JES2.JOB00014.SO0104                         SYSOUT
IEF285I   SYS19006.T100336.RA000.SINE#FOH.LOADSET      PASSED        *-------29
IEF285I   VOL SER NOS= WORK01.
IEF285I   JES2.JOB00014.SI0101                         SYSIN
IEF373I STEP /FORT    / START 19006.1003
IEF374I STEP /FORT    / STOP  19006.1003 CPU    0MIN 00.02SEC SRB    0MIN 00.01SEC VIRT   320K SYS   208K
************************************************************************************************************************************
*     1. Jobstep of job: SINE#FOH    Stepname: FORT        Program name: IEKAA00    Executed on 06.01.19 from 10.03.36 to 10.03.36 *
*         elapsed time  00:00:00,05                      CPU-Identifier:  TK4-           Page-in:      0                           *
*             CPU time  00:00:00,03               Virtual Storage used:    320K         Page-out:      0                           *
*           corr. CPU:  00:00:00,03   CPU time has been corrected by  1 / 1,0  multiplier                                          *
*                                                                                                                                  *
*     I/O Operation                                                                                                                *
*     Number of records read via DD * or DD DATA:     58                                                                           *
*     DMY.......0 DMY.......0 170......29 DMY.......0                                                                              *
*                                                                                                                                  *
*                                          Charge for step (w/o SYSOUT):          0,05                                             *
************************************************************************************************************************************
IEF236I ALLOC. FOR SINE#FOH LKED CLG
IEF237I 148  ALLOCATED TO SYSLIB
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I 140  ALLOCATED TO SYSLMOD
IEF237I 180  ALLOCATED TO SYSUT1
IEF237I 170  ALLOCATED TO SYSLIN
IEF237I DMY  ALLOCATED TO
IEF142I SINE#FOH LKED CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.FORTLIB                                 KEPT          *-------74
IEF285I   VOL SER NOS= MVSRES.
IEF285I   JES2.JOB00014.SO0105                         SYSOUT
IEF285I   SYS19006.T100336.RA000.SINE#FOH.GOSET        PASSED        *-------19
IEF285I   VOL SER NOS= WORK00.
IEF285I   SYS19006.T100336.RA000.SINE#FOH.SYSUT1       DELETED       *--------0
IEF285I   VOL SER NOS= WORK02.
IEF285I   SYS19006.T100336.RA000.SINE#FOH.LOADSET      DELETED       *-------30
IEF285I   VOL SER NOS= WORK01.
IEF373I STEP /LKED    / START 19006.1003
IEF374I STEP /LKED    / STOP  19006.1003 CPU    0MIN 00.02SEC SRB    0MIN 00.01SEC VIRT   260K SYS   208K
************************************************************************************************************************************
*     2. Jobstep of job: SINE#FOH    Stepname: LKED        Program name: IEWL       Executed on 06.01.19 from 10.03.36 to 10.03.36 *
*         elapsed time  00:00:00,05                      CPU-Identifier:  TK4-           Page-in:      0                           *
*             CPU time  00:00:00,03               Virtual Storage used:    260K         Page-out:      0                           *
*           corr. CPU:  00:00:00,03   CPU time has been corrected by  1 / 1,0  multiplier                                          *
*                                                                                                                                  *
*     I/O Operation                                                                                                                *
*     Number of records read via DD * or DD DATA:      0                                                                           *
*     148......74 DMY.......0 140......19 180.......0 170......30 DMY.......0                                                      *
*                                                                                                                                  *
*                                          Charge for step (w/o SYSOUT):          0,05                                             *
************************************************************************************************************************************
IEF236I ALLOC. FOR SINE#FOH GO CLG
IEF237I 140  ALLOCATED TO PGM=*.DD
IEF237I JES2 ALLOCATED TO FT05F001
IEF237I JES2 ALLOCATED TO FT06F001
IEF237I JES2 ALLOCATED TO FT07F001
IEF142I SINE#FOH GO CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS19006.T100336.RA000.SINE#FOH.GOSET        KEPT          *--------0
IEF285I   VOL SER NOS= WORK00.
IEF285I   JES2.JOB00014.SI0102                         SYSIN
IEF285I   JES2.JOB00014.SO0106                         SYSOUT
IEF285I   JES2.JOB00014.SO0107                         SYSOUT
IEF373I STEP /GO      / START 19006.1003
IEF374I STEP /GO      / STOP  19006.1003 CPU    0MIN 00.01SEC SRB    0MIN 00.00SEC VIRT    28K SYS   204K
************************************************************************************************************************************
*     3. Jobstep of job: SINE#FOH    Stepname: GO          Program name: PGM=*.DD   Executed on 06.01.19 from 10.03.36 to 10.03.36 *
*         elapsed time  00:00:00,01                      CPU-Identifier:  TK4-           Page-in:      0                           *
*             CPU time  00:00:00,01               Virtual Storage used:     28K         Page-out:      0                           *
*           corr. CPU:  00:00:00,01   CPU time has been corrected by  1 / 1,0  multiplier                                          *
*                                                                                                                                  *
*     I/O Operation                                                                                                                *
*     Number of records read via DD * or DD DATA:      0                                                                           *
*     140.......0 DMY.......0 DMY.......0 DMY.......0                                                                              *
*                                                                                                                                  *
*                                          Charge for step (w/o SYSOUT):          0,01                                             *
************************************************************************************************************************************
IEF237I 140  ALLOCATED TO SYS00001
IEF285I   SYS19006.T100336.RA000.SINE#FOH.R0000001     KEPT          *--------0
IEF285I   VOL SER NOS= WORK00.
IEF285I   SYS19006.T100336.RA000.SINE#FOH.GOSET        DELETED
IEF285I   VOL SER NOS= WORK00.
IEF375I  JOB /SINE#FOH/ START 19006.1003
IEF376I  JOB /SINE#FOH/ STOP  19006.1003 CPU    0MIN 00.05SEC SRB    0MIN 00.02SEC

 LEVEL 21.8 ( JUN 74 )                          OS/360  FORTRAN H                                 DATE  19.006/10.03.36

           COMPILER OPTIONS - NAME=  MAIN,OPT=02,LINECNT=50,SIZE=0000K,
                              SOURCE,EBCDIC,NOLIST,NODECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
                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
   ISN 0002           INTEGER PLOT(81)
   ISN 0003           INTEGER I,J,ISIN,ICOS
   ISN 0004           REAL*4 X,XRAD,FSIN,FCOS
   ISN 0005           INTEGER CBL,CPL,CDO,CCO,CST,CHA
   ISN 0006           DATA CBL/1H /,CPL/1H+/,CDO/1H./,CCO/1H:/,CST/1H*/,CHA/1H#/
                C
   ISN 0007           WRITE(6,9000)
   ISN 0008           WRITE(6,9010)
                C
                C Fortran IV(1966): DO limits must all to be > 0 -- FORTRAN-G enforces this
   ISN 0009           DO 100 I=1,61
   ISN 0010             X    = 6. * (I-1)
   ISN 0011             XRAD = X/57.2957795131
   ISN 0012             FSIN = SIN(XRAD)
   ISN 0013             FCOS = COS(XRAD)
   ISN 0014             DO 200 J=1,81
   ISN 0015               PLOT(J) = CBL
   ISN 0016      200    CONTINUE
   ISN 0017             PLOT( 1) = CPL
   ISN 0018             PLOT(21) = CDO
   ISN 0019             PLOT(41) = CCO
   ISN 0020             PLOT(61) = CDO
   ISN 0021             PLOT(81) = CPL
   ISN 0022             ISIN = 41.5 + 40. * FSIN
   ISN 0023             ICOS = 41.5 + 40. * FCOS
   ISN 0024             PLOT(ISIN) = CST
   ISN 0025             PLOT(ICOS) = CHA
   ISN 0026             WRITE(6,9020) X,FSIN,FCOS,PLOT
   ISN 0027      100  CONTINUE

                                                                                                               PAGE 002

   ISN 0028           WRITE(6,9010)
   ISN 0029           STOP
                C
   ISN 0030      9000 FORMAT(1X,'     x   sin(x)   cos(x)   ',
                     *         '-1                -0.5                  0',
                     *         '                 +0.5                 +1')
   ISN 0031      9010 FORMAT(1X,'                           ',
                     *         '+-------------------.-------------------:',
                     *         '-------------------.-------------------:')
   ISN 0032      9020 FORMAT(1X,F6.0,1X,F8.5,1X,F8.5,3X,81A1)
                C
   ISN 0033           END

*OPTIONS IN EFFECT*      NAME=  MAIN,OPT=02,LINECNT=50,SIZE=0000K,

*OPTIONS IN EFFECT*      SOURCE,EBCDIC,NOLIST,NODECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF

*STATISTICS*     SOURCE STATEMENTS =      32 ,PROGRAM SIZE =     1288

*STATISTICS*  NO  DIAGNOSTICS GENERATED

****** END OF COMPILATION ******                                       177K BYTES OF CORE NOT USED

 F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LIST,LET
          DEFAULT OPTION(S) USED -  SIZE=(229376,55296)



                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION
  MAIN          00     508
  IHCSSCN *    508     1D9
                                        COS          508    SIN          520
  IHCECOMH*    6E8     F61
                                        IBCOM#       6E8    FDIOCS#      7A4    INTSWTCH    162E
  IHCCOMH2*   1650     65D
                                        SEQDASD     19C8
  IHCFCVTH*   1CB0    11B5
                                        ADCON#      1CB0    FCVAOUTP    1D5A    FCVLOUTP    1DEA    FCVZOUTP    1F42
                                        FCVIOUTP    22F6    FCVEOUTP    27F8    FCVCOUTP    2A12    INT6SWCH    2CFB
  IHCEFNTH*   2E68     542
                                        ARITH#      2E68    ADJSWTCH    3204
  IHCEFIOS*   33B0     F28
                                        FIOCS#      33B0    FIOCSBEP    33B6
  IHCFIOS2*   42D8     52E
  IHCERRM *   4808     5DC
                                        ERRMON      4808    IHCERRE     4820
  IHCUOPT *   4DE8     300
  IHCETRCH*   50E8     28E
                                        IHCTRCH     50E8    ERRTRA      50F0
  IHCUATBL*   5378     638


 ENTRY ADDRESS       00

 TOTAL LENGTH      59B0
****MAIN      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
AUTHORIZATION CODE IS         0.


     x   sin(x)   cos(x)   -1                -0.5                  0                 +0.5                 +1
                           +-------------------.-------------------:-------------------.-------------------:
    0.  0.0      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.86603 -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.58779   +       *           .                   :                   .   #               +
  312. -0.74315  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   +                   .                   *                   .                   #
                           +-------------------.-------------------:-------------------.-------------------: