Newsgroups: bit.listserv.vfort-l
Date:         Mon, 31 Aug 1992 14:14:00 CDT
Reply-To:     Mike Hammill <mike-hammill@UIOWA.EDU>
From:         319 Mike Hammill 335-5486 <AWCMWHTS@UIAMVS.BITNET>
Subject:      SCENAD and VS FORTRAN 2.5 incompatibility

Hello VFORT-L readers!  My IBM SE suggested I ask all of you to
help solve this problem, so you know it must be serious :-).

Problem: We are not able to run load modules in parallel mode
   using IBM's ISPF applicataion called SCENAD (Scientific
   Engineering Application Director).  We run MVS at our site, no
   CMS or AIX.

Questions: (1) Do you run VS FORTRAN 2.5 parallel codes under
   SCENAD?  (2) Do you know what our site's problem is?  (See
   more details below.)  (3) Do you know of a software
   development environment comparable to SCENAD that works with
   VS FORTRAN 2.5?  IBM told our SE that SCENAD is still a viable
   tool and suggested no replacement.

Background:  Several months ago, when The University of Iowa
   installed VS FORTRAN 2.5.0, we discovered that--while we could
   compile and link a VS FORTRAN 2.5 program for parallel
   execution using SCENAD panels--we could not run it under
   SCENAD.  We got the error AFB952I PXEXT: MODULE <program name>
   NOT FOUND FOR PARALLEL EXECUTION.

   Interestingly enough, a load module that is compiled and
   linked for parallel execution under SCENAD can be successfully
   run outside of SCENAD (by calling it with the TSO CALL
   statement or by using good old JCL).  This would seem to
   indicate that the SCENAD environment is the problem.

   Our IBM SE and systems folks, working with IBMers in Dallas,
   have not been able to solve the problem, so we're looking for
   grassroots help.  More details are given after the signature
   line below.  Any advice you can give would be appreciated.
   Thank you.

+-------------------->> Mike Hammill <<-----------------------+
| The University of Iowa       E-Mail: mike-hammill@uiowa.edu |
| 134G Lindquist Center        Phone:  (319) 335-5486         |
| Iowa City, IA  52242-1589    Fax:    (319) 335-5505         |
+-------------------------------------------------------------+

Details:

Hardware: IBM 3090-200J
          Two processors, but only one has a vector facility
Software:
  MVS: 3.1.3
  ISPF/PDF: 3.3
  SCENAD: 1.1.0
  FORTRAN: 2.5.0
  Link/Ed: MVS/DFP 3.2

Compile options: VECTOR(REPORT),PARALLEL(REPORT),OPT(3)
Link/Ed options: defaults
Run time options: PARALLEL(2)

Source program (from Figure 85 on page 264 of the VS FORTRAN
   Programming Guide for CMS and MVS, Release 5, SC26-4222-6):

@process par(lang noauto rep) opt(3)                                    00010000
      program page264a                                                  00020000
      common /m/m(500,500)                                              00030000
      real total                                                        00040000
c                                                                       00050000
      do 10 i = 1, 500                                                  00060000
         do 20 j = 1, 500                                               00070000
            m(i,j) = 3                                                  00080000
   20 continue                                                          00090000
   10 continue                                                          00100000
c                                                                       00110000
      call ploop(total)                                                 00120000
      print *,'Total is:', total                                        00130000
      stop                                                              00140000
      end                                                               00150000
                                                                        00160000
      subroutine ploop(sum)                                             00170000
      common /m/m(500,500)                                              00180000
c                                                                       00190000
      sum = 0.0                                                         00200000
      parallel do i = 1, 500                                            00210000
         local ptot                                                     00220000
         dobefore                                                       00230000
             ptot = 0.0                                                 00240000
         doevery                                                        00250000
             do j = 1, 500                                              00260000
                ptot = ptot + m(j,i)                                    00270000
             enddo                                                      00280000
         doafter lock                                                   00290000
             sum = sum + ptot                                           00300000
      enddo                                                             00310000
      return                                                            00320000
      end                                                               00330000

Compiler listing:

1LEVEL 2.5.0 (JUNE 1991)        VS FORTRAN            AUG 31, 1992  09:35:43
0REQUESTED OPTIONS (EXECUTE): AUTODBL(NONE),CHARLEN(500),NODECK,NOFIPS,FLAG(I),F
                              NOLIST,NOMAP,OBJECT,OPTIMIZE(3),NORENT,SDUMP(ISN),
                              NOXREF,NODBCS,NOSAA,NOEMODE,SC(*),VECTOR(REPORT),P
0REQUESTED OPTIONS (PROCESS): PAR(LANG NOAUTO REP) OPT(3)
0OPTIONS IN EFFECT: NOLIST NOMAP NOXREF NOGOSTMT NODECK SOURCE TERM OBJECT FIXED
                    NOSXM VECTOR IL(DIM) NOTEST SC(*) NODC NOEC NOEMODE NOICA NO
                    OPT(3) LANGLVL(77) NOFIPS FLAG(I) AUTODBL(00000) LINECOUNT(6
            VECTOR: NOIVA INTRINSIC REDUCTION SIZE(ANY) REPORT(XLIST)
          PARALLEL: NOAUTOMATIC LANGUAGE NOREDUCTION REPORT(XLIST)
0 IF DO   ISN   *....*...1.........2.........3.........4.........5.........6....
0           1         program page264a
            2         common /m/m(500,500)
            3         real total
                c
            4         do 10 i = 1, 500
      1     5            do 20 j = 1, 500
      2     6               m(i,j) = 3
      2     7      20 continue
      1     8      10 continue
                c
            9         call ploop(total)
           10         print *,'Total is:', total
           11         stop
           12         end
0   EXTERNAL SYMBOL REPORT
     EXT.SYM.    SYMBOLIC NAME
+    ________    ________________________________
0    M           M
     PAGE64A     PAGE264A
     PLOOP       PLOOP
1LEVEL 2.5.0 (JUNE 1991)        VS FORTRAN            AUG 31, 1992  09:35:43  NA
0                                        REPORT(XLIST)  VECTORIZATION/PARALLELIZ
+                                        _____________  ________________________
0 ISN FLAG NESTING *....*...1.........2.........3.........4.........5.........6.
+ ___ ____ _______
00001                    program page264a
 0002                    common /m/m(500,500)
 0003                    real total
                   c
 0004 VECT +-------      do 10 i = 1, 500
 0005 ELIG |+------         do 20 j = 1, 500
 0006      ||______            m(i,j) = 3
           |_______
                   c
 0009                    call ploop(total)
 0010                    print *,'Total is:', total
 0011                    stop
 0012                    end
1LEVEL 2.5.0 (JUNE 1991)        VS FORTRAN            AUG 31, 1992  09:35:43  NA
0*STATISTICS*   SOURCE STATEMENTS: 12, PROGRAM SIZE: 1176 BYTES, PROGRAM NAME: P
 *STATISTICS*   NO DIAGNOSTICS GENERATED.
 **PAGE264A** END OF COMPILATION 1 ******
1LEVEL 2.5.0 (JUNE 1991)        VS FORTRAN            AUG 31, 1992  09:35:46
0OPTIONS IN EFFECT: NOLIST NOMAP NOXREF NOGOSTMT NODECK SOURCE TERM OBJECT FIXED
                    NOSXM VECTOR IL(DIM) NOTEST SC(*) NODC NOEC NOEMODE NOICA NO
                    OPT(3) LANGLVL(77) NOFIPS FLAG(I) AUTODBL(00000) LINECOUNT(6
            VECTOR: NOIVA INTRINSIC REDUCTION SIZE(ANY) REPORT(XLIST)
          PARALLEL: AUTOMATIC LANGUAGE NOREDUCTION REPORT(XLIST)
0 IF DO   ISN   *....*...1.........2.........3.........4.........5.........6....
0
            1         subroutine ploop(sum)
            2         common /m/m(500,500)
                c
            3         sum = 0.0
            4         parallel do i = 1, 500
      1     5            local ptot
      1     6            dobefore
      1     7                ptot = 0.0
      1     8            doevery
      1     9                do j = 1, 500
      2    10                   ptot = ptot + m(j,i)
      2    11                enddo
      1    12            doafter lock
      1    13                sum = sum + ptot
      1    14         enddo
           15         return
           16         end
1LEVEL 2.5.0 (JUNE 1991)        VS FORTRAN            AUG 31, 1992  09:35:46  NA
0                                        REPORT(XLIST)  VECTORIZATION/PARALLELIZ
+                                        _____________  ________________________
0 ISN FLAG NESTING *....*...1.........2.........3.........4.........5.........6.
+ ___ ____ _______
0
 0001                    subroutine ploop(sum)
 0002                    common /m/m(500,500)
                   c
 0003                    sum = 0.0
 0004 PARA               parallel do i = 1, 500
 0005                       local ptot
 0006                       dobefore
 0007                           ptot = 0.0
 0008                       doevery
 0009 VECT +-------             do j = 1, 500
 0010      |_______                ptot = ptot + m(j,i)

 0012                       doafter lock
 0013                           sum = sum + ptot
 0014                    enddo
 0015                    return
 0016                    end
1LEVEL 2.5.0 (JUNE 1991)        VS FORTRAN            AUG 31, 1992  09:35:46  NA
0NUMBER    ISN        FLAG  VS FORTRAN VECTOR/PARALLEL REPORT MESSAGES
+______    ___        ____  __ _______ _______________ ______ ________
0ILX0382I  0004       PARA  THE LANGUAGE CONSTRUCT "PARALLEL DO" HAS BEEN PARALL
0ILX0401I  0009       RECR  THIS LOOP COULD NOT BE PARALLELIZED BECAUSE SYNCHRON
                            DEPENDENCE(S) INVOLVING THE VARIABLE(S) .
0ILX0324I  0010       RECR  A COMPILER TEMPORARY INTRODUCED DURING SCALAR OPTIMI
                            LOOP(S) AT NESTING LEVEL(S) "1". THESE LOOP(S) CAN N
0ILX0150W  0010       VECT  VECTORIZATION WAS DONE USING SUM OR PRODUCT REDUCTIO
                            FROM SCALAR CODE.
1LEVEL 2.5.0 (JUNE 1991)        VS FORTRAN            AUG 31, 1992  09:35:46  NA
0*STATISTICS*   SOURCE STATEMENTS: 16, PROGRAM SIZE: 1552 BYTES, PROGRAM NAME: P
 *STATISTICS*   NO DIAGNOSTICS GENERATED.
 **PLOOP** END OF COMPILATION 2 ******
1LEVEL 2.5.0 (JUNE 1991)        VS FORTRAN            AUG 31, 1992  09:35:47
0SUMMARY OF MESSAGES AND STATISTICS FOR ALL COMPILATIONS
0*STATISTICS*   SOURCE STATEMENTS: 12, PROGRAM SIZE: 1176 BYTES, PROGRAM NAME: P
 *STATISTICS*   NO DIAGNOSTICS GENERATED.
 **PAGE264A** END OF COMPILATION 1 ******
0*STATISTICS*   SOURCE STATEMENTS: 16, PROGRAM SIZE: 1552 BYTES, PROGRAM NAME: P
 *STATISTICS*   NO DIAGNOSTICS GENERATED.
 **PLOOP** END OF COMPILATION 2 ******
0******* SUMMARY STATISTICS ******* 0 DIAGNOSTICS GENERATED. HIGHEST SEVERITY CO

Link/Ed messages:

1
  MVS/DFP VERSION 3 RELEASE 2 LINKAGE EDITOR     09:36:42  MON  AUG 31, 1992
  JOB AWCMWH     STEP $STAFF1    PROCEDURE $STAFF1
  INVOCATION PARAMETERS - AC=0,AMODE=31,RMODE=ANY,SIZE=(256K,48K)
  ACTUAL SIZE=(186368,45056)
  OUTPUT DATA SET AWCMWH.PARALLEL.LOAD IS ON VOLUME USR805
  ** PAGE264A DID NOT PREVIOUSLY EXIST BUT WAS ADDED AND HAS AMODE 31
  ** LOAD MODULE HAS RMODE ANY
  ** AUTHORIZATION CODE IS         0.

Run time error message (when run under SCENAD):

0AFB952I PXEXT : MODULE PAGE264A NOT FOUND FOR PARALLEL EXECUTION.
0TRACEBACK OF CALLING ROUTINES; MODULE ENTRY ADDRESS = 03E441E8.
 -----------------------------------------------------------------------------
  MODFND1 (03F742A8) CALLED BY PFMODCHK (03F7A880) AT OFFSET 000000A8.
 -----------------------------------------------------------------------------
  PFMODCHK (03F7A880) CALLED BY PFINIT2 (03F73758) AT OFFSET 000001DC.
 -----------------------------------------------------------------------------
  PFINIT2 (03F73758) CALLED BY PARINIT (03F830E8) AT OFFSET 000003B8.
 -----------------------------------------------------------------------------
  PARINIT (03F830E8) CALLED BY PSERV_# (03F888C8) FROM LOCATION 03F88958.
 -----------------------------------------------------------------------------
  PSERV_# (03F888C8) CALLED BY VFEIM# (03F5B942) AT OFFSET 000012A2.
 -----------------------------------------------------------------------------
  VFEIM# (03F5B942) CALLED BY PAGE64A (03E441E8) AT OFFSET 000003F2.
 -----------------------------------------------------------------------------
  PAGE64A (03E441E8) CALLED BY OPERATING SYSTEM.
 -----------------------------------------------------------------------------

Run time output when run outside of SCENAD:

 Total is:  750000.000

JCL used by SCENAD when submitting RUN step in the background:

1                     J E S 2  J O B  L O G  --  S Y S T E M  U I A    --  N O D
0
 09.40.44 JOB00285 IRR010I  USERID AWCMWH   IS ASSIGNED TO THIS JOB.
 09.40.46 JOB00285  ICH70001I AWCMWH   LAST ACCESS AT 15:40:42 ON SATURDAY, AUGU
 09.40.46 JOB00285
 09.40.46 JOB00285
 09.40.46 JOB00285  $HASP373 AWCMWHG  STARTED - INIT 13 - CLASS B - SYS UIA
 09.40.46 JOB00285  IEF403I AWCMWHG - STARTED - TIME=09.40.46
 09.41.06 JOB00285  IEF285I   FORTRAN.VSF2FORT                             KEPT
 09.41.06 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.06 JOB00285  IEF285I   ESSL.ESVVLIB                                 KEPT
 09.41.06 JOB00285  IEF285I   VOL SER NOS= MVS802.
 09.41.06 JOB00285  IEF285I   ESSL.ESVSLIB                                 KEPT
 09.41.06 JOB00285  IEF285I   VOL SER NOS= MVS802.
 09.41.07 JOB00285  IEF285I   AWCMWH.OUTBACK                               KEPT
 09.41.07 JOB00285  IEF285I   VOL SER NOS= USR80A.
 09.41.14 JOB00285  IEF285I   FORTRAN.VSF2FORT                             KEPT
 09.41.14 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.14 JOB00285  IEF285I   ESSL.ESVVLIB                                 KEPT
 09.41.14 JOB00285  IEF285I   VOL SER NOS= MVS802.
 09.41.14 JOB00285  IEF285I   ESSL.ESVSLIB                                 KEPT
 09.41.14 JOB00285  IEF285I   VOL SER NOS= MVS802.
 09.41.14 JOB00285  IEF285I   AWCMWH.PARALLEL.LOAD                         KEPT
 09.41.14 JOB00285  IEF285I   VOL SER NOS= USR805.
 09.41.14 JOB00285  IEF285I   AWCMWH.OUTBACK                               KEPT
 09.41.14 JOB00285  IEF285I   VOL SER NOS= USR80A.
 09.41.15 JOB00285  IEF285I   AWCMWH.AWCMWHG.SEQ0039.AFE0029.TABLES        KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= USR801.
 09.41.15 JOB00285  IEF285I   ISR.V3R3M0.ISRTLIB                           KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   ISP.V3R3M0.ISPTENU                           KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   FORTRAN.VSF2FORT                             KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   SCENAD.AFECLIB                               KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   ISR.V3R3M0.ISRCLIB                           KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   FORTRAN.VSF2CLIB                             KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   SCENAD.AFEMLIB                               KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   ISR.V3R3M0.ISRMENU                           KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   ISP.V3R3M0.ISPMENU                           KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   FORTRAN.VSF2MLIB                             KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   SCENAD.AFESLIB                               KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.15 JOB00285  IEF285I   SCENAD.AFEPLIB                               KEPT
 09.41.15 JOB00285  IEF285I   VOL SER NOS= SYSRES.
 09.41.17 JOB00285  IEF285I   AWCMWH.AWCMWHG.SEQ0039.AFE0029.TABLES        UNCAT
 09.41.17 JOB00285  IEF285I   VOL SER NOS= USR801.
 09.41.17 JOB00285  IEF404I AWCMWHG - ENDED - TIME=09.41.17
 09.41.17 JOB00285  $HASP395 AWCMWHG  ENDED
        1 //AWCMWHG JOB (--------),'AWCMWH',
          // MSGCLASS=H,
          // NOTIFY=AWCMWH,
          // TIME=(1)
          ***
          ***MESSAGE
          ***MESSAGE
          ******* RUN SCENAD IN BACKGROUND
        2 //AFEBATCH EXEC  PGM=IKJEFT01,DYNAMNBR=60,REGION=4096K
        3 //ISPPROF  DD    DSN='AWCMWH.AWCMWHG.SEQ0039.AFE0029.TABLES',
          //  DISP=(OLD)
        4 //ISPTLIB  DD    DSN='AWCMWH.AWCMWHG.SEQ0039.AFE0029.TABLES',
          //  DISP=(SHR,PASS)
        5 //         DD    DSN=ISR.V3R3M0.ISRTLIB,DISP=SHR
        6 //         DD    DSN=ISP.V3R3M0.ISPTENU,DISP=SHR
          ******* ALLOCATE PROGRAM LIBRARY
        7 //STEPLIB  DD    DSN=FORTRAN.VSF2FORT,DISP=SHR
          ******* ALLOCATE CLIST LIBRARY
        8 //SYSPROC  DD    DSN=SCENAD.AFECLIB,DISP=SHR
        9 //         DD    DSN=ISR.V3R3M0.ISRCLIB,DISP=SHR
       10 //         DD    DSN=FORTRAN.VSF2CLIB,DISP=SHR
          ******* ALLOCATE MESSAGE LIBRARY
       11 //ISPMLIB  DD    DSN=SCENAD.AFEMLIB,DISP=SHR
       12 //         DD    DSN=ISR.V3R3M0.ISRMENU,DISP=SHR
       13 //         DD    DSN=ISP.V3R3M0.ISPMENU,DISP=SHR
       14 //         DD    DSN=FORTRAN.VSF2MLIB,DISP=SHR
          ******* ALLOCATE SKELETON LIBRARY
       15 //ISPSLIB  DD    DSN=SCENAD.AFESLIB,DISP=SHR
          ******* ALLOCATE PANEL LIBRARY
       16 //ISPPLIB  DD    DSN=SCENAD.AFEPLIB,DISP=SHR
          ******* ALLOCATE ISPF LOG
       17 //ISPLOG   DD    DISP=(MOD,PASS),
          //  UNIT=SYSDA,DCB=(DSORG=PS,LRECL=125,BLKSIZE=129,RECFM=VA),
          //  SPACE=(TRK,(1,1))
          ******* ALLOCATE TSO OUTPUT
       18 //SYSTSPRT DD    SYSOUT=*
          ******* ALLOCATE SYSTEM DUMPS
       19 //SYSUDUMP DD    DUMMY
       20 //AFEUDUMP DD    DUMMY
       21 //SYSABEND DD    DUMMY
          ******* ALLOCATE TSO INPUT
       22 //SYSTSIN  DD    *
          ******** PRINT ISPF LOG
       23 //ISPPRINT EXEC  PGM=IEBGENER
       24 //SYSPRINT DD    DUMMY
       25 //SYSUT1   DD    DSN=*.AFEBATCH.ISPLOG,DISP=(SHR,DELETE)
       26 //SYSUT2   DD    SYSOUT=*
       27 //SYSIN    DD    DUMMY
       28 // EXEC PGM=IEFBR14
       29 //SYSUT2 DD DSN='AWCMWH.AWCMWHG.SEQ0039.AFE0029.TABLES',
          //       DISP=(SHR,DELETE)
       30 //SYSPRINT DD SYSOUT=*
       31 //SYSIN DD DUMMY
          *** EXEC PGM=IEFBR14
          ***SYSUT2 DD DSN='AWCMWH.AWCMWHG.SEQ0039.AFE0029.TABLES',
          ***       DISP=(SHR,UNCATLG)
          ***SYSPRINT DD SYSOUT=*
          ***SYSIN DD DUMMY
 ICH70001I AWCMWH   LAST ACCESS AT 15:40:42 ON SATURDAY, AUGUST 29, 1992
 IEF142I AWCMWHG AFEBATCH - STEP WAS EXECUTED - COND CODE 0000
 WCC310I STEP I/O WAIT TIME  (COMPUTED). . .     0MIN  8.33SEC    RESOURCE UNITS
 IEF373I STEP /AFEBATCH/ START 92244.0940
 IEF374I STEP /AFEBATCH/ STOP  92244.0941 CPU    0MIN 00.66SEC SRB    0MIN 00.06
 IEF142I AWCMWHG ISPPRINT - STEP WAS EXECUTED - COND CODE 0000
 WCC310I STEP I/O WAIT TIME  (COMPUTED). . .     0MIN  3.40SEC    RESOURCE UNITS
 IEF373I STEP /ISPPRINT/ START 92244.0941
 IEF374I STEP /ISPPRINT/ STOP  92244.0941 CPU    0MIN 00.03SEC SRB    0MIN 00.00
 IEF142I AWCMWHG - STEP WAS EXECUTED - COND CODE 0000
 WCC310I STEP I/O WAIT TIME  (COMPUTED). . .     0MIN  3.00SEC    RESOURCE UNITS
 IEF373I STEP /        / START 92244.0941
 IEF374I STEP /        / STOP  92244.0941 CPU    0MIN 00.01SEC SRB    0MIN 00.00
 WCC310I  JOB I/O WAIT TIME  (COMPUTED). . .     0MIN 14.73SEC    RESOURCE UNITS
 IEF375I  JOB /AWCMWHG / START 92244.0940
 IEF376I  JOB /AWCMWHG / STOP  92244.0941 CPU    0MIN 00.70SEC SRB    0MIN 00.06
1READY
   PROFILE PREFIX(AWCMWH) WTPMSG MSGID NOPROMPT
 READY
   ISPSTART CMD(%AFEDMSTR SELECT(B) ) NEWAPPL(AFE)
  SYS92244.T094046.RA000.AWCMWHG.R0000001 WAS PREALLOCATED (NO FREE WAS DONE).
 READY
 END
1      TIME                *** ISPF TRANSACTION LOG ***                        U

       09:40   START OF ISPF LOG - - -  - SESSION # 1 --------------------------
       09:41      TSO     - COMMAND  -  - %AFEDMSTR SELECT(B)
       09:41      TSO     - COMMAND  -  - AFEDMCTL
       09:41                            - SCENAD session started at 09:41 on 92/
       09:41                            - Allocated FORTRAN.VSF2FORT.
       09:41                            - Allocated ESSL.ESVVLIB.
       09:41                            - Allocated ESSL.ESVSLIB.
       09:41                            - Allocated AWCMWH.OUTBACK.
       09:41                            - Allocated AWCMWH.PARALLEL.LOAD.
       09:41                            - Run-time was invoked at 09:41:08.
       09:41                            - Run-time completed at 09:41:14.
       09:41                            - SCENAD session completed at 09:41 on 9
       09:41    END OF ISPF LOG - - - - - SESSION # 1 --------------------------

TSO call that successfully runs the load module:

    READY
    call 'awcmwh.parallel.load(page264a)' 'parallel(2)'

JCL that also successfully runs it:

//AWCMWH  JOB (xxxxxxxx),WCC.HAMMILL,NOTIFY=AWCMWH                      00010000
/*ROUTE PRINT TSO                                                       00020000
//  EXEC PGM=PAGE264A,PARM='PARALLEL(2)'                                00030000
//STEPLIB  DD DISP=SHR,DSN=AWCMWH.PARALLEL.LOAD                         00040000
//FT06F001 DD SYSOUT=A                                                  00050001
//                                                                      00060000
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU