Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Cant open input file, status code was 39

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
sporkit150

New User


Joined: 27 Jun 2006
Posts: 4

PostPosted: Sat Jul 22, 2006 12:56 pm    Post subject: Cant open input file, status code was 39
Reply with quote

this should be an easy easy thing to do, but im missing something small and am having trouble completing a homework assignment. you can see the error at the end of my output. the input file is referanced as INPUT1 in my jcl. dont dont see anything unique about the file at all either really. just about 50 chars of packed and character data. any help is appreciated.

Code:

//Z123456A JOB ,'john'
/*JOBPARM ROOM=936
//STEP1   EXEC PROC=IGYWCG,CPARM='FLAG(I,I),APOST,TEST(STMT)'
//COB.SYSIN DD *

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    PROG6C.
       
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT1-FILE ASSIGN TO INPUT1.
           SELECT PRINT-FILE ASSIGN TO PRINTER.           
             
       DATA DIVISION.
       FILE SECTION.

       FD  INPUT1-FILE
           RECORDING MODE IS F.

       01  INPUT1-RECORD.
           05  IN-ITEM-ID            Pic X(8).
           05  IN-ITEM-DESC          Pic X(30).
           05  IN-ITEM-COST          Pic X(3).
           05  IN-ITEM-SAFE          PIC X(1).
           05  IN-ITEM-WH1           Pic X(35).
           05  IN-ITEM-WH2           Pic X(35).
           05  IN-ITEM-WH3           Pic X(35).           

       FD  PRINT-FILE
           LABEL RECORDS ARE OMITTED
           RECORDING MODE IS F.           

       01  PRINT-LINE                       PIC X(132).
       
       WORKING-STORAGE SECTION.

       01  DASHED-LINE.
           05                 PIC X(85)  VALUE ALL '-'.
           05                 PIC X(47)  VALUE SPACES.
           
       PROCEDURE DIVISION.
       
       100-PRODUCE-ITEM-REPORT.
           DISPLAY 'TEST'.
           OPEN INPUT INPUT1-FILE
                OUTPUT PRINT-FILE.
           WRITE PRINT-LINE FROM DASHED-LINE.
           STOP RUN.
       
/*
//GO.PRINTER DD SYSOUT=*
//GO.INPUT1  DD DSN=T90HCH1.CSCI465.SUMMER06.HW6.PRODUCTS,DISP=SHR
//


but keep getting this error seen at the bottom of the output.

Code:

1                        J E S 2  J O B  L O G  --  S Y S T E M  P R O D  --  N O D E  N I U             
0
 02.04.47 JOB01520 ---- SATURDAY,  22 JUL 2006 ----
 02.04.47 JOB01520  $HASPU01 JOB PARMS - TIME=(0,5),LINES=2,CARDS=100,TAPES=0,ROOM=936
 02.04.48 JOB01520  $HASP373 Z123456A STARTED - INIT 14   - CLASS M - SYS PROD
 02.04.48 JOB01520  ACF9CCCD USERID Z123456  IS ASSIGNED TO THIS JOB - Z123456A
 02.04.48 JOB01520  IEF403I Z123456A - STARTED - TIME=02.04.48
 02.04.49 JOB01520  AMS000I: STEP END  Z123456A.COB       RC=  0008    CPU= 00:00:00.07    PGM=IGYCRCTL
 02.04.49 JOB01520  AMS000I: STEP END  Z123456A.GO        RC=  3000    CPU= 00:00:00.06    PGM=LOADER
 02.04.49 JOB01520  IEF404I Z123456A - ENDED - TIME=02.04.49
 02.04.49 JOB01520  AMS000I: JOB  END  Z123456A  john          CPU= 00:00:00.13
 02.04.50 JOB01520  $HASP395 Z123456A ENDED
0------ JES2 JOB STATISTICS ------                                                                                                   
-  22 JUL 2006 JOB EXECUTION DATE                                                                                                   
-           59 CARDS READ                                                                                                           
-          488 SYSOUT PRINT RECORDS                                                                                                 
-            0 SYSOUT PUNCH RECORDS                                                                                                 
-           27 SYSOUT SPOOL KBYTES                                                                                                   
-         0.03 MINUTES EXECUTION TIME                                                                                               
 !! END OF JES SPOOL FILE !!
        1 //Z123456A JOB ,'john',                                         JOB01520
          //             MSGCLASS=U                                                       
          //* $ACFJ219 ACF2 ACTIVE NIU                                                ACF2
          //* MSGCLASS=U added by MVSBATCH v2.04b                                         
          /*JOBPARM ROOM=936                                                             
        2 //STEP1   EXEC PROC=IGYWCG,CPARM='FLAG(I,I),APOST,TEST(STMT)'                   
        3 XXIGYWCG PROC  CPARM=,                                                  00001000
          XX             CREGION=2048K,                                           00002000
          XX             GPARM=,                                                  00003000
          XX             GREGION=2048K,                                           00004000
          XX             LEVEL=SYS2,                                              00005000
          XX             LEVER=V111,                                              00006000
          XX             LPARM=MAP,                                               00007002
          XX             SYSLBLK=3200,                                            00008000
          XX             UTSPACE='(CYL,(1,1))',                                   00009000
          XX             VERSION=V110                                             00010000
          XX*                                                                     00011000
          XX******************************************************************    00012000
          XX* PLEASE CALL 3-1875 IF YOU HAVE ANY PROBLEMS WITH THIS PROCEDURE*    00013000
          XX******************************************************************    00014000
          XX*                                                                     00015000
        4 XXCOB    EXEC PGM=IGYCRCTL,REGION=&CREGION,PARM='&CPARM'                00016000
          IEFC653I SUBSTITUTION JCL - PGM=IGYCRCTL,REGION=2048K,PARM='FLAG(I,I),APOST,TEST(STMT)'
        5 XXSTEPLIB  DD  DSNAME=&LEVEL..ADCOBOL.&VERSION..SIGYCOMP,DISP=SHR       00017000
          IEFC653I SUBSTITUTION JCL - DSNAME=SYS2.ADCOBOL.V110.SIGYCOMP,DISP=SHR
        6 XXSYSPRINT DD  SYSOUT=*                                                 00018000
        7 XXSYSLIN   DD  DSNAME=&&OBJSET,UNIT=DISK,                               00019000
          XX             DISP=(MOD,PASS),SPACE=(TRK,(3,3)),                       00020000
          XX             DCB=(BLKSIZE=&SYSLBLK)                                   00021000
          IEFC653I SUBSTITUTION JCL - DSNAME=&&OBJSET,UNIT=DISK,DISP=(MOD,PASS),SPACE=(TRK,(3,3)),DCB=(BLKSIZE=3200)
        8 XXSYSUT1   DD  UNIT=DISK,SPACE=&UTSPACE                                 00022000
          IEFC653I SUBSTITUTION JCL - UNIT=DISK,SPACE=(CYL,(1,1))
        9 XXSYSUT2   DD  UNIT=DISK,SPACE=&UTSPACE                                 00023000
          IEFC653I SUBSTITUTION JCL - UNIT=DISK,SPACE=(CYL,(1,1))
       10 XXSYSUT3   DD  UNIT=DISK,SPACE=&UTSPACE                                 00024000
          IEFC653I SUBSTITUTION JCL - UNIT=DISK,SPACE=(CYL,(1,1))
       11 XXSYSUT4   DD  UNIT=DISK,SPACE=&UTSPACE                                 00025000
          IEFC653I SUBSTITUTION JCL - UNIT=DISK,SPACE=(CYL,(1,1))
       12 XXSYSUT5   DD  UNIT=DISK,SPACE=&UTSPACE                                 00026000
          IEFC653I SUBSTITUTION JCL - UNIT=DISK,SPACE=(CYL,(1,1))
       13 XXSYSUT6   DD  UNIT=DISK,SPACE=&UTSPACE                                 00027000
          IEFC653I SUBSTITUTION JCL - UNIT=DISK,SPACE=(CYL,(1,1))
       14 XXSYSUT7   DD  UNIT=DISK,SPACE=&UTSPACE                                 00028000
          XX*                                                                     00029000
          IEFC653I SUBSTITUTION JCL - UNIT=DISK,SPACE=(CYL,(1,1))
       15 //COB.SYSIN DD *                                                               
       16 XXGO     EXEC PGM=LOADER,COND=(8,LT,COB),PARM='&LPARM/&GPARM',          00030000
          XX             REGION=&GREGION                                          00031000
          IEFC653I SUBSTITUTION JCL - PGM=LOADER,COND=(8,LT,COB),PARM='MAP/',REGION=2048K
       17 XXSYSLIB   DD  DSNAME=&LEVEL..LE370.&LEVER..SCEELKED,DISP=SHR           00032000
          IEFC653I SUBSTITUTION JCL - DSNAME=SYS2.LE370.V111.SCEELKED,DISP=SHR
       18 XXSYSLOUT  DD  SYSOUT=*                                                 00033000
       19 XXSYSLIN   DD  DSNAME=&&OBJSET,DISP=(OLD,DELETE)                        00034000
       20 XXSTEPLIB  DD  DSNAME=&LEVEL..LE370.&LEVER..SCEERUN,DISP=SHR            00035000
          IEFC653I SUBSTITUTION JCL - DSNAME=SYS2.LE370.V111.SCEERUN,DISP=SHR
       21 XXSYSPRINT DD  SYSOUT=*                                                 00036000
       22 XXCEEDUMP  DD  SYSOUT=*                                                 00037000
       23 XXSYSUDUMP DD  SYSOUT=*                                                 00038000
          XX*                                                                     00039000
          XX*      END OF IGYWCG PROC                                             00040000
          XX*                                                                     00041000
       24 //GO.PRINTER DD SYSOUT=*                                                       
       25 //GO.INPUT1  DD DSN=T90HCH1.CSCI465.SUMMER06.HW6.PRODUCTS,DISP=SHR             
       26 //                                                                             
 !! END OF JES SPOOL FILE !!
  STMT NO. MESSAGE
         2 IEFC001I PROCEDURE IGYWCG WAS EXPANDED USING SYSTEM LIBRARY SYS2.PROCLIB
 IEF236I ALLOC. FOR Z123456A COB STEP1
 IEF237I 0514 ALLOCATED TO STEPLIB
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IGD101I SMS ALLOCATED TO DDNAME (SYSLIN  )
         DSN (SYS06203.T020447.RA000.Z123456A.OBJSET.H01  )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP303                                                               
 IGD101I SMS ALLOCATED TO DDNAME (SYSUT1  )
         DSN (SYS06203.T020447.RA000.Z123456A.R0130617    )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP301                                                               
 IGD101I SMS ALLOCATED TO DDNAME (SYSUT2  )
         DSN (SYS06203.T020447.RA000.Z123456A.R0130618    )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP303                                                               
 IGD101I SMS ALLOCATED TO DDNAME (SYSUT3  )
         DSN (SYS06203.T020447.RA000.Z123456A.R0130619    )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP301                                                               
 IGD101I SMS ALLOCATED TO DDNAME (SYSUT4  )
         DSN (SYS06203.T020447.RA000.Z123456A.R0130620    )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP303                                                               
 IGD101I SMS ALLOCATED TO DDNAME (SYSUT5  )
         DSN (SYS06203.T020447.RA000.Z123456A.R0130621    )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP303                                                               
 IGD101I SMS ALLOCATED TO DDNAME (SYSUT6  )
         DSN (SYS06203.T020447.RA000.Z123456A.R0130622    )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP301                                                               
 IGD101I SMS ALLOCATED TO DDNAME (SYSUT7  )
         DSN (SYS06203.T020447.RA000.Z123456A.R0130623    )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP301                                                               
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF142I Z123456A COB STEP1 - STEP WAS EXECUTED - COND CODE 0008
 IEF285I   SYS2.ADCOBOL.V110.SIGYCOMP                   KEPT         
 IEF285I   VOL SER NOS= SYS301.                           
 IEF285I   Z123456.Z123456A.JOB01520.D0000102.?         SYSOUT       
 IGD106I SYS06203.T020447.RA000.Z123456A.OBJSET.H01   PASSED,    DDNAME=SYSLIN 
 IGD105I SYS06203.T020447.RA000.Z123456A.R0130617     DELETED,   DDNAME=SYSUT1 
 IGD105I SYS06203.T020447.RA000.Z123456A.R0130618     DELETED,   DDNAME=SYSUT2 
 IGD105I SYS06203.T020447.RA000.Z123456A.R0130619     DELETED,   DDNAME=SYSUT3 
 IGD105I SYS06203.T020447.RA000.Z123456A.R0130620     DELETED,   DDNAME=SYSUT4 
 IGD105I SYS06203.T020447.RA000.Z123456A.R0130621     DELETED,   DDNAME=SYSUT5 
 IGD105I SYS06203.T020447.RA000.Z123456A.R0130622     DELETED,   DDNAME=SYSUT6 
 IGD105I SYS06203.T020447.RA000.Z123456A.R0130623     DELETED,   DDNAME=SYSUT7 
 IEF285I   Z123456.Z123456A.JOB01520.D0000101.?         SYSIN         
 ************************************************************************************************************************************
 *                                                  STEP TERMINATION STATISTICS                                                     *
 *                                                                                                                                  *
 * STEP NAME     COB         START TIME  02:04:48.01   VIRT SYS  USED     288K   PAGE INS              0  STEP CPU      00:00:00.07 *
 * PGM NAME      IGYCRCTL    STOP  TIME 02:04:49.13    VIRT CORE USED   2,044K   PAGE OUTS             0  JOB  CPU      00:00:00.07 *
 * DISPATCH PRTY   0         ELAP. TIME 00:00:01.12    NUMBER SWAPS           0  NUMBER PAGES          0  SRB TIME      00:00:00.01 *
 * PERF. GROUP         0     SERV UNITS         640    TRANS ACT TIME  00:00:00.82                        COMPLETION CODE      0008 *
 *  MAIN STORAGE UNITS           0     CPU UNITS             382     SRB UNITS              31     I/O UNITS             227        *
 ************************************************************************************************************************************
 *                                                   EXCP STATISTICS                                                                *
 *                                                                                                                                  *
 *  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT          *
 *  STEPLIB       514        304  SYSLIN        520          5  SYSUT1        518          7  SYSUT2        520          5          *
 *  SYSUT3        518          7  SYSUT4        520          8  SYSUT5        520          0  SYSUT6        518          1          *
 *  SYSUT7        518          5                                                                                                    *
 *                                                                                                                                  *
 * EXCP TOTAL             342  VIO PAGE INS          0       VIO PAGE OUTS          0       PAGES SWAPPED IN          0             *
 *                                                                                                                                  *
 ************************************************************************************************************************************
 IEF373I STEP/COB     /START 2006203.0204
 IEF374I STEP/COB     /STOP  2006203.0204 CPU    0MIN 00.07SEC SRB    0MIN 00.01SEC VIRT  2044K SYS   288K EXT   32736K SYS    9552K
 IEF236I ALLOC. FOR Z123456A GO STEP1
 IEF237I 0514 ALLOCATED TO SYSLIB
 IEF237I JES2 ALLOCATED TO SYSLOUT
 IGD103I SMS ALLOCATED TO DDNAME SYSLIN
 IEF237I 0514 ALLOCATED TO STEPLIB
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I JES2 ALLOCATED TO CEEDUMP
 IEF237I JES2 ALLOCATED TO SYSUDUMP
 IEF237I JES2 ALLOCATED TO PRINTER
 IEF237I 050E ALLOCATED TO INPUT1
 IEF237I JES2 ALLOCATED TO SYSOUT
 IEF142I Z123456A GO STEP1 - STEP WAS EXECUTED - COND CODE 3000
 IEF285I   SYS2.LE370.V111.SCEELKED                     KEPT         
 IEF285I   VOL SER NOS= SYS301.                           
 IEF285I   Z123456.Z123456A.JOB01520.D0000103.?         SYSOUT       
 IGD105I SYS06203.T020447.RA000.Z123456A.OBJSET.H01   DELETED,   DDNAME=SYSLIN 
 IEF285I   SYS2.LE370.V111.SCEERUN                      KEPT         
 IEF285I   VOL SER NOS= SYS301.                           
 IEF285I   Z123456.Z123456A.JOB01520.D0000104.?         SYSOUT       
 IEF285I   Z123456.Z123456A.JOB01520.D0000105.?         SYSOUT       
 IEF285I   Z123456.Z123456A.JOB01520.D0000106.?         SYSOUT       
 IEF285I   Z123456.Z123456A.JOB01520.D0000107.?         SYSOUT       
 IEF285I   T90HCH1.CSCI465.SUMMER06.HW6.PRODUCTS        KEPT         
 IEF285I   VOL SER NOS= ACA302.                           
 IEF285I   Z123456.Z123456A.JOB01520.D0000108.?         SYSOUT       
 ************************************************************************************************************************************
 *                                                  STEP TERMINATION STATISTICS                                                     *
 *                                                                                                                                  *
 * STEP NAME     GO          START TIME  02:04:49.14   VIRT SYS  USED     308K   PAGE INS              0  STEP CPU      00:00:00.06 *
 * PGM NAME      LOADER      STOP  TIME 02:04:49.96    VIRT CORE USED   1,328K   PAGE OUTS             0  JOB  CPU      00:00:00.13 *
 * DISPATCH PRTY   0         ELAP. TIME 00:00:00.82    NUMBER SWAPS           0  NUMBER PAGES          0  SRB TIME      00:00:00.00 *
 * PERF. GROUP         0     SERV UNITS         505    TRANS ACT TIME  00:00:00.76                        COMPLETION CODE      3000 *
 *  MAIN STORAGE UNITS           0     CPU UNITS             341     SRB UNITS              20     I/O UNITS             144        *
 ************************************************************************************************************************************
 *                                                   EXCP STATISTICS                                                                *
 *                                                                                                                                  *
 *  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT          *
 *  SYSLIB        514         91  SYSLIN        520          6  STEPLIB       514        140  INPUT1        50E          2          *
 *                                                                                                                                  *
 *                                                                                                                                  *
 * EXCP TOTAL             239  VIO PAGE INS          0       VIO PAGE OUTS          0       PAGES SWAPPED IN          0             *
 *                                                                                                                                  *
 ************************************************************************************************************************************
 IEF373I STEP/GO      /START 2006203.0204
 IEF374I STEP/GO      /STOP  2006203.0204 CPU    0MIN 00.06SEC SRB    0MIN 00.00SEC VIRT  1328K SYS   308K EXT    1184K SYS    9600K
 ************************************************************************************************************************************
 *                                                  JOB TERMINATION STATISTICS                                                      *
 *                                                                                                                                  *
 *  JOB NAME    Z123456A  JOB01520                              CPU TIME  00:00:00.13            SRB TIME            00:00:00.01    *
 *                                                                                                                                  *
 *  PROGRAMMER  john                                    INIT DATE 07/22/06   06.203      INITIATION TIME     02:04:48.01    *
 *                                                                                                                                  *
 *  SYSTEM ID   O2B4                                            TERM DATE 07/22/06   06.203      TERMINATION TIME    02:04:49.97    *
 *                                                                                                                                  *
 *  CLASS       M         PERF. GROUP      0                    SERV UNIT      1,145             ELAPSED TIME        00:00:01.96    *
 *                                                                                                                                  *
 *  MAIN STORAGE UNITS           0     CPU UNITS             723     SRB UNITS              51     I/O UNITS             371        *
 *                                                                                                                                  *
 *  JOB LOG Z123456A 06203 02:04:47.86                          MVS REL   SP6.1.0                                                   *
 *                                                                                                                                  *
 *  ACCTG DATA 0135040675,Z12    9936,T,Z12    ,MINCHUK JOHN A                                   COMPLETION STATUS   C3000          *
 *                                                                                                                                  *
 ************************************************************************************************************************************
 IEF375I  JOB/Z123456A/START 2006203.0204
 IEF376I  JOB/Z123456A/STOP  2006203.0204 CPU    0MIN 00.13SEC SRB    0MIN 00.01SEC
 !! END OF JES SPOOL FILE !!
1PP 5688-197 IBM SAA AD/Cycle COBOL/370 1.1.0       09/11/91                Date 07/22/06  Time 02:04:48   Page     1               
0Invocation parameters:                                                                                                             
 FLAG(I,I),APOST,TEST(STMT)                                                                                                         
0Options in effect:                                                                                                                 
       ADV                                                                                                                           
       APOST                                                                                                                         
     NOAWO                                                                                                                           
       BUFSIZE(4096)                                                                                                                 
     NOCMPR2                                                                                                                         
     NOCOMPILE(S)                                                                                                                   
     NOCURRENCY                                                                                                                     
       DATA(31)                                                                                                                     
     NODBCS                                                                                                                         
     NODECK                                                                                                                         
     NODUMP                                                                                                                         
     NODYNAM                                                                                                                         
     NOEVENTS                                                                                                                       
     NOEXIT                                                                                                                         
     NOFASTSRT                                                                                                                       
       FLAG(I,I)                                                                                                                     
     NOFLAGMIG                                                                                                                       
     NOFLAGSAA                                                                                                                       
     NOFLAGSTD                                                                                                                       
       LANGUAGE(EN)                                                                                                                 
     NOLIB                                                                                                                           
       LINECOUNT(60)                                                                                                                 
     NOLIST                                                                                                                         
     NOMAP                                                                                                                           
     NONAME                                                                                                                         
     NONUMBER                                                                                                                       
       NUMPROC(NOPFD)                                                                                                               
       OBJECT                                                                                                                       
     NOOFFSET                                                                                                                       
     NOOPTIMIZE                                                                                                                     
       OUTDD(SYSOUT)                                                                                                                 
     NORENT                                                                                                                         
       SEQUENCE                                                                                                                     
       SIZE(MAX)                                                                                                                     
       SOURCE                                                                                                                       
       SPACE(1)                                                                                                                     
     NOSSRANGE                                                                                                                       
     NOTERM                                                                                                                         
       TEST(STMT,SYM)                                                                                                               
       TRUNC(STD)                                                                                                                   
     NOVBREF                                                                                                                         
     NOWORD                                                                                                                         
     NOXREF                                                                                                                         
       ZWB                                                                                                                           
1PP 5688-197 IBM SAA AD/Cycle COBOL/370 1.1.0       09/11/91      PROG6C    Date 07/22/06  Time 02:04:48   Page     2               
   LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8  Map and Cross Reference         
0/* PROG6C                                                                                                                           
   000001                IDENTIFICATION DIVISION.                                                                                   
   000002                PROGRAM-ID.    PROG6C.                                                                                     
   000003                                                                                                                           
   000004                ENVIRONMENT DIVISION.                                                                                       
   000005                INPUT-OUTPUT SECTION.                                                                                       
   000006                FILE-CONTROL.                                                                                               
   000007                    SELECT INPUT1-FILE ASSIGN TO INPUT1.                                                                   
   000008                    SELECT PRINT-FILE ASSIGN TO PRINTER.                                                                   
   000009                                                                                                                           
   000010                DATA DIVISION.                                                                                             
   000011                FILE SECTION.                                                                                               
   000012                                                                                                                           
   000013                FD  INPUT1-FILE                                                                                             
                                                                                                                                     
 ==000013==> IGYGR1180-E The integer in the "RECORD CONTAINS" clause for file "INPUT1-FILE" was                                     
                         less than the maximum calculated record size 147.  "RECORD CONTAINS 147"                                   
                         was assumed.                                                                                               
                                                                                                                                     
   000014                    RECORD CONTAINS 50 CHARACTERS                                                                           
   000015                    DATA RECORD IS INPUT1-RECORD                                                                           
   000016                    RECORDING MODE IS F.                                                                                   
   000017                                                                                                                           
   000018                01  INPUT1-RECORD.                                                                                         
   000019                    05  IN-ITEM-ID            Pic X(8).                                                                     
   000020                    05  IN-ITEM-DESC          Pic X(30).                                                                   
   000021                    05  IN-ITEM-COST          Pic X(3).                                                                     
   000022                    05  IN-ITEM-SAFE          PIC X(1).                                                                     
   000023                    05  IN-ITEM-WH1           Pic X(35).                                                                   
   000024                    05  IN-ITEM-WH2           Pic X(35).                                                                   
   000025                    05  IN-ITEM-WH3           Pic X(35).                                                                   
   000026                                                                                                                           
   000027                FD  PRINT-FILE                                                                                             
   000028                    LABEL RECORDS ARE OMITTED                                                                               
   000029                    RECORDING MODE IS F.                                                                                   
   000030                                                                                                                           
   000031                01  PRINT-LINE                       PIC X(132).                                                           
   000032                                                                                                                           
   000033                WORKING-STORAGE SECTION.                                                                                   
   000034                                                                                                                           
   000035                01  DASHED-LINE.                                                                                           
   000036                    05                 PIC X(85)  VALUE ALL '-'.                                                           
   000037                    05                 PIC X(47)  VALUE SPACES.                                                             
   000038                                                                                                                           
   000039                PROCEDURE DIVISION.                                                                                         
   000040                                                                                                                           
   000041                100-PRODUCE-ITEM-REPORT.                                                                                   
   000042                    DISPLAY 'TEST'.                                                                                         
   000043                    OPEN INPUT INPUT1-FILE                                                                                 
   000044                         OUTPUT PRINT-FILE.                                                                                 
   000045                    WRITE PRINT-LINE FROM DASHED-LINE.                                                                     
   000046                    STOP RUN.                                                                                               
   000047                                                                                                                           
 */ PROG6C                                                                                                                           
1PP 5688-197 IBM SAA AD/Cycle COBOL/370 1.1.0       09/11/91      PROG6C    Date 07/22/06  Time 02:04:48   Page     3               
0LineID  Message code  Message text                                                                                                 
                                                                                                                                     
     13  IGYGR1180-E   The integer in the "RECORD CONTAINS" clause for file "INPUT1-FILE" was less than the maximum calculated record
                       size 147.  "RECORD CONTAINS 147" was assumed.                                                                 
-Messages    Total    Informational    Warning    Error    Severe    Terminating                                                     
0Printed:       1                                    1                                                                               
-* Statistics for COBOL program PROG6C:                                                                                             
 *    Source records = 47                                                                                                           
 *    Data Division statements = 10                                                                                                 
 *    Procedure Division statements = 4                                                                                             
0End of compilation 1,  program PROG6C,  highest severity 8.                                                                         
0Return code 8                                                                                                                       
 !! END OF JES SPOOL FILE !!
1OS/390 V2 R10 BINDER     02:04:48 SATURDAY JULY 22, 2006                                                               
 BATCH EMULATOR  JOB(Z123456A) STEP(STEP1   ) PGM= LOADER    PROCEDURE(GO      )                                         
 IEW2278I B352 INVOCATION PARAMETERS - MAP/                                                                             
                                                                                                                         
                                                                                                                         
                                                                                                                         
1                         *** M O D U L E  M A P ***                                                                     
                                                                                                                         
 ---------------                                                                                                         
 CLASS  B_TEXT            LENGTH =     3150  ATTRIBUTES = CAT,   LOAD, RMODE= 24                                         
                          OFFSET =        0 IN SEGMENT 001       ALIGN = DBLWORD                                         
 ---------------                                                                                                         
                                                                                                                         
  SECTION    CLASS                                      ------- SOURCE --------                                         
   OFFSET   OFFSET  NAME                TYPE    LENGTH  DDNAME   SEQ  MEMBER                                             
                                                                                                                         
             31000  PROG6C             CSECT      2519  SYSLIN    01  **NULL**                                           
                                                                                                                         
             33520  CEESG005        *  CSECT        18  SYSLIB    01  CEESG005                                           
                                                                                                                         
             33538  CEEBETBL        *  CSECT        B4  SYSLIB    01  CEEBETBL                                           
                                                                                                                         
             335F0  CEESTART        *  CSECT       110  SYSLIB    01  CEESTART                                           
                                                                                                                         
             33700  IGZCBSN         *  CSECT       4B0  SYSLIB    01  IGZCBSN                                           
                                                                                                                         
             33BB0  CEEBPIRA        *  CSECT       2D0  SYSLIB    01  CEEINT                                             
        0    33BB0     CEEINT             LABEL                                                                         
        0    33BB0     CEEBPIRB           LABEL                                                                         
        0    33BB0     CEEBPIRC           LABEL                                                                         
                                                                                                                         
             33E80  CEEARLU         *  CSECT       130  SYSLIB    01  CEEARLU                                           
                                                                                                                         
             33FB0  CEEBTRM         *  CSECT        9C  SYSLIB    01  CEEBTRM                                           
                                                                                                                         
             34050  CEEBLLST        *  CSECT        F8  SYSLIB    01  CEEBLLST                                           
       10    34060     CEELLIST           LABEL                                                                         
                                                                                                                         
             34148  CEEBINT         *  CSECT         8  SYSLIB    01  CEEBINT                                           
                                                                                                                         
                                                                                                                         
                                                                                                                         
                                                                                                                         
1          ***  DATA SET SUMMARY  ***                                                                                   
                                                                                                                         
 DDNAME    CONCAT   FILE IDENTIFICATION                                                                                 
 SYSLIB      01     SYS2.LE370.V111.SCEELKED                                                                             
 SYSLIN      01     SYS06203.T020447.RA000.Z123456A.OBJSET.H01                                                           
                                                                                                                         
                                                                                                                         
                                                                                                                         
                                                                                                                         
                                                                                                                         
1          *** SYMBOL REFERENCES NOT ASSOCIATED WITH ANY ADCON ***                                                       
                                                                                                                         
 TYPE   SCOPE   NAME                                                                                                     
  ER      L     CEESG005                                                                                                 
  ER      M     CEEMAIN                                                                                                 
                                                                                                                         
           *** E N D  O F  M O D U L E  M A P ***                                                                       
                                                                                                                         
                                                                                                                         
                                                                                                                         
1PROCESSING OPTIONS:                                                                                                     
                                                                                                                         
    ALIASES             NO                                                                                               
    ALIGN2              NO                                                                                               
    AMODE               UNSPECIFIED                                                                                     
    CALL                YES                                                                                             
    CASE                UPPER                                                                                           
    COMPAT              UNSPECIFIED                                                                                     
    DCBS                NO                                                                                               
    DYNAM               NO                                                                                               
    EXTATTR             UNSPECIFIED                                                                                     
    EXITS:              NONE                                                                                             
    FILL                NONE                                                                                             
    GID                 UNSPECIFIED                                                                                     
    HOBSET              NO                                                                                               
    LET                 04                                                                                               
    LINECT              060                                                                                             
    LIST                SUMMARY                                                                                         
    LISTPRIV            NO                                                                                               
    MAP                 YES                                                                                             
    MAXBLK              032760                                                                                           
    MSGLEVEL            00                                                                                               
    OVLY                NO                                                                                               
    PRINT               YES                                                                                             
    RES                 YES                                                                                             
    REUSABILITY         UNSPECIFIED                                                                                     
    RMODE               UNSPECIFIED                                                                                     
    STORENX             NO                                                                                               
    TERM                NO                                                                                               
    UID                 UNSPECIFIED                                                                                     
    UPCASE:             NO                                                                                               
    WKSPACE             000000K,000000K                                                                                 
    XCAL                NO                                                                                               
    XREF                NO                                                                                               
    ***END OF OPTIONS***                                                                                                 
                                                                                                                         
                                                                                                                         
                                                                                                                         
                                                                                                                         
                                                                                                                         
                                                                                                                         
                                                                                                                         
1LOAD OPERATION SUMMARY:                                                                                                 
                                                                                                                         
    LOADED NAME         **GO                                                                                             
    TIME OF LOAD        02.04.49  JUL 22, 2006                                                                           
    LOAD PT VADDR(HEX)  00031000                                                                                         
    ENTRY PT VADDR(HEX) 00031000                                                                                         
                                                                                                                         
                                                                                                                         
1LOAD MODULE ATTRIBUTES:                                                                                                 
                                                                                                                         
    AMODE               ANY                                                                                             
    PAGE ALIGN          NO                                                                                               
    RMODE                24                                                                                             
    XPLINK              NO                                                                                               
    MODULE SIZE (HEX)   00003150                                                                                         
                                                                                                                         
                                                                                                                         
1OS/390 V2 R10 BINDER     02:04:48 SATURDAY JULY 22, 2006                                                               
 BATCH EMULATOR  JOB(Z123456A) STEP(STEP1   ) PGM= LOADER    PROCEDURE(GO      )                                         
 IEW2010I 0F06 LOADED PROGRAM RETURN CODE =  3000.                                                                       
 IEW2008I 0F03 PROCESSING COMPLETED.  RETURN CODE =  3000.                                                               
                                                                                                                         
                                                                                                                         
                                                                                                                         
1----------------------                                                                                                 
 MESSAGE SUMMARY REPORT                                                                                                 
 ----------------------                                                                                                 
  SEVERE MESSAGES        (SEVERITY = 12)                                                                                 
  NONE                                                                                                                   
                                                                                                                         
  ERROR MESSAGES         (SEVERITY = 08)                                                                                 
  NONE                                                                                                                   
                                                                                                                         
  WARNING MESSAGES       (SEVERITY = 04)                                                                                 
  NONE                                                                                                                   
                                                                                                                         
  INFORMATIONAL MESSAGES (SEVERITY = 00)                                                                                 
  2008  2010  2278                                                                                                       
                                                                                                                         
                                                                                                                         
  **** END OF MESSAGE SUMMARY REPORT ****                                                                               
                                                                                                                         
 !! END OF JES SPOOL FILE !!
 TEST                                                                                                                   
 IGZ0035S There was an unsuccessful OPEN or CLOSE of file INPUT1 in program PROG6C at relative location X'03CA'.         
          Neither FILE STATUS nor an ERROR declarative were specified. The status code was 39.                           
          The error occurred in program unit IGZCMSG  at entry point IGZCMSG  at offset +000003F0 at address 00098568.   
 !! END OF JES SPOOL FILE !!
Back to top
View user's profile Send private message

mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sat Jul 22, 2006 7:16 pm    Post subject:
Reply with quote

hi,

Chk the compiler error msg after stmt 13 in the listing. It shows a mismatch between the rec contains clause and the rec len in the FD.

Also chk the attributes of the physical file; they must match what you specified in the pgm.
Back to top
View user's profile Send private message
sporkit150

New User


Joined: 27 Jun 2006
Posts: 4

PostPosted: Sun Jul 23, 2006 5:07 am    Post subject:
Reply with quote

thanks, that was basically it. a mismatch in the specification for the input. on a related note heres a small question about packed data.

Code:
10  IN1-COST-TBL               PIC 9(5) COMP-3.


the information in the input might look like 12 59 9F or 125.99. however if my save area is PIC 9(5) then what happened to the last digit indicating positive or negative? eventually it winds up in storage as 1 25 99 or something similar. im not sure if im thinking about this correctly.
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Jul 23, 2006 8:19 am    Post subject:
Reply with quote

Not sure that I'm catching your point about comp-3.

But here's the definition of comp-3:

A positive 12599 can occupy a field defined as pic s9(5) comp-3. It will look like this in memory: 12 59 9C. A negative 12599 will look like this in memory: 12 59 9D.

If you define the field as pic 9(5) comp-3 both pos and neg 12599 will look like: 12 59 9F.

If you move the literal 125.99 to the pic S9(5) comp-3 field its memory will contain 00 12 5C. The digits fillowing the dec pt are truncated because there are no decimal places in the comp-3 field.

HTH
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us