1 J E S 2 J O B L O G -- S Y S T E M N E R 1 -- N O D E N E R 0 09:19:24 JOB27773 ---- FRIDAY, 17 SEP 1999 ---- 09.19.24 JOB27773 IRR010I USERID RCI003 IS ASSIGNED TO THIS JOB. 09.19.24 JOB27773 IEF677I WARNING MESSAGE(S) FOR JOB RCI003A ISSUED 09.19.24 JOB27773 ICH70001I RCI003 LAST ACCESS AT 09:18:59 ON FRIDAY, SEPTEMBER 17, 1999 09.19.24 JOB27773 $HASP373 RCI003A STARTED - INIT 22 - CLASS A - SYS NER1 09.19.29 JOB27773 $HASP395 RCI003A ENDED 0------ JES2 JOB STATISTICS ------ - 17 SEP 1999 JOB EXECUTION DATE - 11 CARDS READ - 475 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 23 SYSOUT SPOOL KBYTES - 0.07 MINUTES EXECUTION TIME !! END OF JES SPOOL FILE !! 1 //RCI003A JOB ,COLDWELL,CLASS=A,REGION=2048K,MSGCLASS=H JOB27773 /*JOBPARM TIME=009,LINES=5,CARDS=4000 //*ROUTE PRINT N1R0 2 // EXEC VSFCG, // CPARM='OPT(3)' 3 XXVSFCG PROC CREGION=2048K,GREGION=2048K, XX CPARM=,LPARM='MAP',GPARM=, XX PLOTV='DUMMY ',PFORMS='VTECSTD', XX ESSL='DUMMY ', XX IMSL='DUMMY ',IMSLVER='IMSL30', XX VERSION='SYS1', XX SUBLIB1='NERDC.NULLPDSU',SUBLIB2='NERDC.NULLPDSU', XX SUBLIB3='NERDC.NULLPDSU',SUBLIB4='NERDC.NULLPDSU', XX SUBLIB5='NERDC.NULLPDSU' XX* XX********************************************************************** XX* * XX* VSFCG - COMPILE, LOAD AND RUN A FORTRAN PROGRAM USING THE * XX* MOST RECENT VERSION OF THE VS FORTRAN COMPILER. * XX* * XX* DATE REVISION AUTHOR * XX* 10/25/88 INITIAL DEVELOPMENT DWL * XX* 05/31/89 CHANGED DDNAME=OBJECT DWL * XX* 09/18/89 ADDED VECTOR IMSL REH * XX* 03/10/94 REMOVED GOULD & VERSAPLOT, * XX* ADDED VGS PLOTTING RAS * XX* 04/18/94 CHANGED FOR IMSL 2.0 RAS * XX* 12/23/97 CHANGED FOR IMSL 3.0, * XX* REMOVED VECTOR LIBRARIES RAS * XX* * XX* PARAMETER DEFINITION DEFAULT * XX* * XX* CREGION = REGION SIZE FOR COMPILE STEP 2048K * XX* GREGION = REGION SIZE FOR RUN STEP 2048K * XX* CPARM = COMPILER OPTIONS AS INSTALLED * XX* LPARM = LOADER OPTIONS MAP * XX* GPARM = RUN OPTIONS NONE * XX* PLOTV = VERSATEC PLOTTING OPTION NO PLOTTING * XX* USE PLOTV= TO ACTIVATE * XX* PFORMS = VERSATEC SPECIAL FORMS OPTION VTECSTD * XX* ESSL = ESSL SUBROUTINE LIBRARY OPTION NO ESSL * XX* EITHER ESSL=SCALAR OR ESSL=VECTOR * XX* WILL ACTIVATE THE ESSL SCALAR LIBRARY * XX* (THE VECTOR LIBRARY IS NO LONGER AVAILABLE) * XX* IMSL = IMSL SUBROUTINE LIBRARY OPTION NO IMSL * XX* USE IMSL=IMSL TO ACTIVATE * XX* IMSLVER = VERSION OF IMSL TO BE USED CURRENT PRODUCTION * XX* VERSION = COMPILER VERSION OPTION CURRENT PRODUCTION * XX* SUBLIB_ = SUBROUTINE LIBRARIES (MAX OF 5) NONE * XX* * XX********************************************************************** XX* XX********************************************************************** XX* STEP 1 - COMPILE THE PROGRAM (FORT) * XX********************************************************************** 4 XXFORT EXEC PGM=FORTVS2,REGION=&CREGION,PARM='&CPARM' IEFC653I SUBSTITUTION JCL - PGM=FORTVS2,REGION=2048K,PARM='OPT(3)' 5 XXSTEPLIB DD DSN=&VERSION..VSF2COMP,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYS1.VSF2COMP,DISP=SHR 6 XXSYSLIN DD DSN=&&LIN,DISP=(,PASS),UNIT=SYSDA, XX SPACE=(3120,(152,76),,,ROUND), XX DCB=(BLKSIZE=3120,LRECL=80,RECFM=FB) 7 XXSYSTERM DD SYSOUT=A 8 //SYSPRINT DD SYSOUT=H X/SYSPRINT DD SYSOUT=A 9 XXSYSPUNCH DD SYSOUT=B XX********************************************************************** XX* STEP 2 - LOAD AND RUN THE PROGRAM (GO) * XX********************************************************************** 10 //SYSIN DD * GENERATED STATEMENT 11 XXGO EXEC PGM=LOADER,REGION=&GREGION,PARM='&LPARM/&GPARM', XX COND=(4,LT,FORT) IEFC653I SUBSTITUTION JCL - PGM=LOADER,REGION=2048K,PARM='MAP/',COND=(4,LT,FORT) 12 XXSTEPLIB DD DSN=&VERSION..VSF2LOAD,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYS1.VSF2LOAD,DISP=SHR 13 XX DD DDNAME=V&PLOTV IEFC653I SUBSTITUTION JCL - DDNAME=VDUMMY 14 XXV DD &PLOTV.DSN=NERDC.VGS.V110.LINKLIB,DISP=SHR IEFC653I SUBSTITUTION JCL - DUMMY 15 XXVDUMMY DD DSN=NERDC.NULLPDSU,DISP=SHR 16 XXSYSLIB DD DSN=&VERSION..VSF2FORT,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYS1.VSF2FORT,DISP=SHR 17 XX DD DDNAME=ZV&PLOTV IEFC653I SUBSTITUTION JCL - DDNAME=ZVDUMMY 18 XX DD DDNAME=L&ESSL IEFC653I SUBSTITUTION JCL - DDNAME=LDUMMY 19 XX DD DDNAME=J1&IMSL IEFC653I SUBSTITUTION JCL - DDNAME=J1DUMMY 20 XX DD DDNAME=J2&IMSL IEFC653I SUBSTITUTION JCL - DDNAME=J2DUMMY 21 XX DD DSN=&SUBLIB1,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=NERDC.NULLPDSU,DISP=SHR 22 XX DD DSN=&SUBLIB2,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=NERDC.NULLPDSU,DISP=SHR 23 XX DD DSN=&SUBLIB3,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=NERDC.NULLPDSU,DISP=SHR 24 XX DD DSN=&SUBLIB4,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=NERDC.NULLPDSU,DISP=SHR 25 XX DD DSN=&SUBLIB5,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=NERDC.NULLPDSU,DISP=SHR 26 XXZV DD &PLOTV.DSN=NERDC.VGS.V110.LINKLIB,DISP=SHR IEFC653I SUBSTITUTION JCL - DUMMY 27 XXZVDUMMY DD DSN=NERDC.NULLPDSU,DISP=SHR 28 XXLDUMMY DD DSN=NERDC.NULLPDSU,DISP=SHR 29 XXLSCALAR DD DSN=SYS1.ESVSLIB,DISP=SHR 30 XXLVECTOR DD DSN=SYS1.ESVSLIB,DISP=SHR 31 XXJ1DUMMY DD DSN=NERDC.NULLPDSU,DISP=SHR 32 XXJ2DUMMY DD DSN=NERDC.NULLPDSU,DISP=SHR 33 XXJ1IMSL DD DSN=NERDC.IMSL.LIBRARY.&IMSLVER,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=NERDC.IMSL.LIBRARY.IMSL30,DISP=SHR 34 XXJ2IMSL DD DSN=SYS1.ESVSLIB,DISP=SHR 35 XXSYSLIN DD DSN=&&LIN,DISP=(OLD,DELETE) 36 XX DD DDNAME=OBJECT 37 XXSYSLOUT DD SYSOUT=A 38 XXSYSPRINT DD SYSOUT=A 39 XXFT05F001 DD DDNAME=SYSIN 40 //GO.FT06F001 DD SYSOUT=H,DCB=(RECFM=UA,BLKSIZE=133) X/FT06F001 DD SYSOUT=A 41 XXFT07F001 DD SYSOUT=B 42 XXFT57F001 DD SYSOUT=A VERSATEC MESSAGES 43 XXAFFOUT DD SYSOUT=A 44 XXAFFPRINT DD SYSOUT=A 45 XXPLOTGATE OUTPUT FORMS=&PFORMS,DEST=NERVM.PLOTGATE IEFC653I SUBSTITUTION JCL - FORMS=VTECSTD,DEST=NERVM.PLOTGATE 46 XXVGSPARM DD &PLOTV.DSN=NERDC.VGS.V110.VGSPARM,DISP=SHR,LABEL=(,,,IN) IEFC653I SUBSTITUTION JCL - DUMMY 47 XX DD DDNAME=PLOTPARM 48 XXVGSCFRL DD &PLOTV.DSN=NERDC.VGS.V110.DATALIB(RLCNFG),DISP=SHR IEFC653I SUBSTITUTION JCL - DUMMY 49 XXVGSFONT DD &PLOTV.DSN=NERDC.VGS.V110.FONTDATA,DISP=SHR, X XX LABEL=(,,,IN) IEFC653I SUBSTITUTION JCL - DUMMY 50 XXVGSMODL DD &PLOTV.DSN=NERDC.VGS.V110.DATALIB(VGSMODL),DISP=SHR IEFC653I SUBSTITUTION JCL - DUMMY 51 XXVGSDRVR DD &PLOTV.DSN=NERDC.VGS.V110.DATALIB(VGSDRVR),DISP=SHR IEFC653I SUBSTITUTION JCL - DUMMY 52 XXCE3400D DD &PLOTV.DSN=NERDC.VGS.V110.DATALIB(CE3400D),DISP=SHR IEFC653I SUBSTITUTION JCL - DUMMY 53 XXCE3400P DD &PLOTV.DSN=NERDC.VGS.V110.DATALIB(CE3400P),DISP=SHR IEFC653I SUBSTITUTION JCL - DUMMY 54 XXVGSPLOT DD SYSOUT=V,OUTPUT=*.PLOTGATE XX********************************************************************** XX* END OF PROCEDURE * XX********************************************************************** 55 //GO.SYSIN DD * !! END OF JES SPOOL FILE !! STMT NO. MESSAGE 2 IEFC001I PROCEDURE VSFCG WAS EXPANDED USING SYSTEM LIBRARY NERDC.PROCLIB IEF677I WARNING MESSAGE(S) FOR JOB RCI003A ISSUED 55 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED ICH70001I RCI003 LAST ACCESS AT 09:18:59 ON FRIDAY, SEPTEMBER 17, 1999 IEF236I ALLOC. FOR RCI003A FORT IEF237I 0207 ALLOCATED TO STEPLIB IGD100I 027B ALLOCATED TO DDNAME SYSLIN DATACLAS ( ) IEF237I JES2 ALLOCATED TO SYSTERM IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I JES2 ALLOCATED TO SYSPUNCH IEF237I JES2 ALLOCATED TO SYSIN IEF142I RCI003A FORT - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS1.VSF2COMP KEPT IEF285I VOL SER NOS= MVSIP2. IEF285I SYS99260.T091924.RA000.RCI003A.LIN.H01 PASSED IEF285I VOL SER NOS= TEMP02. IEF285I RCI003.RCI003A.JOB27773.D0000103.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000104.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000105.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000101.? SYSIN -------------------------------------------------------------------------------- 480 STEPLIB 1 SYSLIN -------------------------------------------------------------------------------- IEF373I STEP/FORT /START 1999260.0919 IEF374I STEP/FORT /STOP 1999260.0919 CPU 0MIN 00.03SEC SRB 0MIN 00.01SEC VIRT 68K SYS 300K EXT 2316K SYS 10124K IEF236I ALLOC. FOR RCI003A GO IEF237I 0207 ALLOCATED TO STEPLIB IEF237I 015B ALLOCATED TO IEF237I DMY ALLOCATED TO V IEF237I 0207 ALLOCATED TO SYSLIB IEF237I 015B ALLOCATED TO IEF237I 015B ALLOCATED TO IEF237I 015B ALLOCATED TO IEF237I 015B ALLOCATED TO IEF237I 015B ALLOCATED TO IEF237I 015B ALLOCATED TO IEF237I 015B ALLOCATED TO IEF237I 015B ALLOCATED TO IEF237I 015B ALLOCATED TO IEF237I DMY ALLOCATED TO ZV IEF237I 0207 ALLOCATED TO LSCALAR IEF237I 0207 ALLOCATED TO LVECTOR IEF237I 0166 ALLOCATED TO J1IMSL IEF237I 0207 ALLOCATED TO J2IMSL IEF237I 027B ALLOCATED TO SYSLIN IEF237I DMY ALLOCATED TO IEF237I JES2 ALLOCATED TO SYSLOUT IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I JES2 ALLOCATED TO FT05F001 IEF237I JES2 ALLOCATED TO FT06F001 IEF237I JES2 ALLOCATED TO FT07F001 IEF237I JES2 ALLOCATED TO FT57F001 IEF237I JES2 ALLOCATED TO AFFOUT IEF237I JES2 ALLOCATED TO AFFPRINT IEF237I DMY ALLOCATED TO VGSPARM IEF237I DMY ALLOCATED TO IEF237I DMY ALLOCATED TO VGSCFRL IEF237I DMY ALLOCATED TO VGSFONT IEF237I DMY ALLOCATED TO VGSMODL IEF237I DMY ALLOCATED TO VGSDRVR IEF237I DMY ALLOCATED TO CE3400D IEF237I DMY ALLOCATED TO CE3400P IEF237I JES2 ALLOCATED TO VGSPLOT IEF142I RCI003A GO - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS1.VSF2LOAD KEPT IEF285I VOL SER NOS= MVSIP2. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I SYS1.VSF2FORT KEPT IEF285I VOL SER NOS= MVSIP2. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I NERDC.NULLPDSU KEPT IEF285I VOL SER NOS= SYSLIB. IEF285I SYS1.ESVSLIB KEPT IEF285I VOL SER NOS= MVSIP2. IEF285I SYS1.ESVSLIB KEPT IEF285I VOL SER NOS= MVSIP2. IEF285I NERDC.IMSL.LIBRARY.IMSL30 KEPT IEF285I VOL SER NOS= SYS901. IEF285I SYS1.ESVSLIB KEPT IEF285I VOL SER NOS= MVSIP2. IEF285I SYS99260.T091924.RA000.RCI003A.LIN.H01 DELETED IEF285I VOL SER NOS= TEMP02. IEF285I RCI003.RCI003A.JOB27773.D0000106.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000107.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000102.? SYSIN IEF285I RCI003.RCI003A.JOB27773.D0000108.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000109.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000110.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000111.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000112.? SYSOUT IEF285I RCI003.RCI003A.JOB27773.D0000113.? SYSOUT -------------------------------------------------------------------------------- DATA SPACE: STORAGE 256M CPU TIME 0.00S -------------------------------------------------------------------------------- 59 STEPLIB 0 STEPLIB 46 SYSLIB 18 SYSLIB 0 SYSLIB 0 SYSLIB 0 SYSLIB 0 SYSLIB 0 SYSLIB 0 SYSLIB 0 SYSLIB 0 SYSLIB 0 LSCALAR 0 LVECTOR 0 J1IMSL 0 J2IMSL 2 SYSLIN -------------------------------------------------------------------------------- IEF373I STEP/GO /START 1999260.0919 IEF374I STEP/GO /STOP 1999260.0919 CPU 0MIN 00.09SEC SRB 0MIN 00.01SEC VIRT 240K SYS 316K EXT 1184K SYS 10160K -------------------------------------------------------------------------------- I DESCRIPTION I QUANTITY I CHARGE* I -------------------------------------------------------------------------------- JOB SUBMISSION SERVICE 1 $ 0.09 JOB STEP(S) 2 CPU TIME(TCB) 0.12S $ 0.06 DISK I/O OPERATIONS 120 $ 0.01 ESTIMATED TOTAL CHARGE $ 0.16 *ACTUAL CHARGES MAY VARY BASED ON CURRENT CHARGING ALGORITHM AND ACCOUNT TYPE -------------------------------------------------------------------------------- I JOB27773 RCI003A RCI003 #NEXRCAA CLASS A NER1 I -------------------------------------------------------------------------------- IEF375I JOB/RCI003A /START 1999260.0919 IEF376I JOB/RCI003A /STOP 1999260.0919 CPU 0MIN 00.12SEC SRB 0MIN 00.02SEC !! END OF JES SPOOL FILE !! 1LEVEL 2.6.0 (NOV 1993) VS FORTRAN SEP 17, 1999 09:19:26 PAGE: 1 0REQUESTED OPTIONS (EXECUTE): OPT(3) 0OPTIONS IN EFFECT: NOLIST NOMAP NOXREF NOGOSTMT NODECK SOURCE TERM OBJECT FIXED TRMFLG SRCFLG NODDIM NORENT SDUMP(ISN) NOSXM NOVECTOR IL(DIM) NOTEST SC(*) NODC NOEC NOEMODE NOICA NODIRECTIVE NODBCS NOSAA NOPARALLEL NODYNAMIC NOSYM NOREORDER NOPC OPT(3) LANGLVL(77) NOFIPS FLAG(I) HALT(S) AUTODBL(NONE) PTRSIZE(8) LINECOUNT(60) CHARLEN(500) NAME(MAIN#) 0 IF DO ISN *....*...1.........2.........3.........4.........5.........6.........7.*.......8 0 1 print*,' hello world' 2 stop 3 end 0*STATISTICS* SOURCE STATEMENTS: 3, PROGRAM SIZE: 544 BYTES, PROGRAM NAME: MAIN#, PAGE: 1 *STATISTICS* NO DIAGNOSTICS GENERATED. **MAIN#** END OF COMPILATION 1 ****** TIME STAMP: 99.26009.19.26 !! END OF JES SPOOL FILE !! hello world !! END OF JES SPOOL FILE !!