Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

QSAM and disk access

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
sporkit150

New User


Joined: 27 Jun 2006
Posts: 4

PostPosted: Tue Jun 27, 2006 1:10 pm    Post subject: QSAM and disk access
Reply with quote

I'm a student at Northern Illinois University. I'm having trouble with an assignment and wondering if anybody can offer some advice. Were working with a macro library called QSAM for disk access and output. unfortunatly i can't get any output back from the mainframe. I'm going to post my code. If anybody's familiar I would appreciate some advice.

Code:
//ZXXXXXXA JOB ,'JOHN MINCHUK'
/*JOBPARM ROOM=XXX
//STEP1   EXEC  PGM=ASMA90,REGION=512K,PARM='TERM,NOXREF,NOESD,NORLD'
//STEPLIB   DD  DSN=SYS2.HLA.V120.LOADLIB,DISP=SHR
//SYSLIB    DD  DSN=SYS2.MACLIB,DISP=SHR
//          DD  DSN=SYS1.MACLIB,DISP=SHR
//          DD  DSN=T90CSCI.CSCI464.MACLIB,DISP=SHR
//SYSLIN    DD  DSN=&&OBJECT,DISP=(NEW,PASS,DELETE),UNIT=PUB,
//   SPACE=(CYL,(1,1))
//SYSPRINT  DD  SYSOUT=*
//SYSUT1    DD  UNIT=PUB,SPACE=(CYL,(10,5))
//SYSIN     DD  *
*
*
*
$REC        DSECT
$EMPID      DS    CL8
$NAME       DS    CL20
$WORKED     DS    CL3
$SICK       DS    CL3
$OVERT      DS    CL3
$CALLS      DS    CL4
$CALLLEN    DS    CL5
$WWW        DS    CL5
*
*
*
PROG1    CSECT                        PROGRAM 1 START
         PRINT    NOGEN               REALLY WHO KNOWS?...
         XSAVE    SA=*,BR=12,TR=NO    SAVE THE REGS
         PGMDUMP                      BETTER FORMATED DUMPS
*
*
*
          OPEN (NEWDCB,(OUTPUT))      OPEN THE OUTPUT FILE
          IF (LTR,15,15,NZ)           IF SOMETHING WENT WRONG
            ABEND 446,DUMP            KILL THE PROG
          ENDIF
*
          OPEN  (INDCB,(INPUT))       OPEN THE INPUT FILE
          IF (LTR,15,15,NZ)           IF SOMETHING WENT WRONG
            ABEND 444,DUMP            AHBEND WITH COND CODE 444
          ENDIF                       CLOSE THIS IF
*
          OPEN (OUTDCB,(OUTPUT))      OPEN THE PRINT FILE
          IF (LTR,15,15,NZ)           CHECK IF IT WORKED
            ABEND 445,DUMP            DUMP 445 IF IT DIDNT
          ENDIF                       CLOSE THIS IF
*
*
*
          GET     INDCB               ADDY OF FIRST REC IN R1
          USING   $REC,1              ADDRESSABILITY OF THE BUFFER
*
          DO WHILE=(CLI,FLAG,EQ,C'N') LOOP THREW RECORDS
           MVC PLINE+1(8),$EMPID       MOVE OVER EMPLOYEE ID
           MVC PLINE+9(20),$NAME       MOVE OVER EMPLOYEE NAME
           MVC PLINE+29(3),$WORKED     MOVE OVER EMPLOYEE DAYS WORKED
           MVC PLINE+32(3),$SICK       MOVE OVER EMPLOYEE SICK DAYS
           MVC PLINE+35(3),$OVERT      MOVE OVER EMPLOYEE OVERTIME
           MVC PLINE+38(4),$CALLS      MOVE OVER EMPLOYEE CALL TOTAL
           MVC PLINE+42(5),$CALLLEN    MOVE OVER EMPLOYEE CALL LENGTH
           MVC PLINE+47(5),$WWW        MOVE OVER EMPLOYEE WWW TIME
           PUT    OUTDCB,PLINE         PRINT OUT THE COPIED LINE
           GET    INDCB                GET THE NEXT RECORD
          ENDDO                       END THIS LOOP
          DROP    1                   UNDO THE USING STATEMENT
*
          CLOSE   (INDCB)             CLOSE THE INPUT FILE
          CLOSE   (OUTDCB)            CLOSE THE PRINT FILE
          CLOSE   (NEWDCB)            CLOSE THE NEW FILE
*
*
*
         XRETURN  SA=*,RC=0,TR=NO     RESTORE THE REGISTERS
*
*
*
PLINE    DC       CL133' '            HOLD DATA TO PRINT
*
INDCB     DCB  DDNAME=INFILE,DEVD=DA,DSORG=PS,MACRF=GL,EODAD=EOF
OUTDCB    DCB  DDNAME=PRINTER,DSORG=PS,DEVD=DA,LRECL=133,              X
               BLKSIZE=1330,RECFM=FBA,MACRF=PM
NEWDCB    DCB  DDNAME=EXTFILE,DSORG=PS,RECFM=FB,MACRF=(GM,PM),         X
               EODAD=EOF2,LRECL=133
*
*
*
FLAG     DC       C'N'                SPACE FOR FLAG
EOF      DS       0H                  INFILE END OF DATA RTN
         MVI      FLAG,C'Y'           CHANGE THE FLAG
         BR       14                  RETURN FROM EODAD
*
FLAG2    DC       C'N'                SPACE FOR FLAG 2
EOF2     DS       0H                  OUTFILE END OF DATA RTN
         MVI      FLAG2,C'Y'          CHANGE FLAG
         BR       14                  RETURN FROM EODAD
*
*
*
         END    PROG1                 PROGRAM 1 END
/*
//*
//STEP2   EXEC  PGM=HEWLDRGO,REGION=2048K,TIME=(0,5),COND=(0,LT,STEP1)
//SYSLIN    DD  DSN=&&OBJECT,UNIT=PUB,DISP=(OLD,DELETE)
//STEPLIB   DD  DSN=T90CSCI.CSCI464.LOADLIB,DISP=SHR
//SYSLIB    DD  DSN=SYS2.CALLIB,DISP=SHR
//SYSLOUT   DD  SYSOUT=*
//INFILE    DD  DSN=T90HCH1.CSCI465.SUMMER06.HW1,DISP=SHR
//EXTFILE   DD  UNIT=PUB,SPACE=(TRK,(2,1))
//PRINTER   DD  SYSOUT=*
//XSNAPOUT  DD  SYSOUT=*
//SPX$DUMP  DD  SYSOUT=*
//SYS$DUMP  DD  SYSOUT=*
//


Here's what I get back from the server when I run the program.

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.13.30 JOB01306 ---- TUESDAY,   27 JUN 2006 ----
 02.13.30 JOB01306  $HASPU01 JOB PARMS - TIME=(0,5),LINES=2,CARDS=100,TAPES=0,ROOM=936
 02.13.30 JOB01306  $HASP373 Z129936A STARTED - INIT 14   - CLASS M - SYS PROD
 02.13.30 JOB01306  ACF9CCCD USERID Z129936  IS ASSIGNED TO THIS JOB - Z129936A
 02.13.30 JOB01306  IEF403I Z129936A - STARTED - TIME=02.13.30
 02.13.30 JOB01306  IEC130I SYSTERM  DD STATEMENT MISSING
 02.13.31 JOB01306  AMS000I: STEP END  Z129936A.STEP1     RC=  0002    CPU= 00:00:00.12    PGM=ASMA90
 02.13.31 JOB01306  AMS000I: STEP END  Z129936A.STEP2     RC=  NXEQ    CPU= 00:00:00.00    PGM=HEWLDRGO
 02.13.31 JOB01306  IEF404I Z129936A - ENDED - TIME=02.13.31
 02.13.31 JOB01306  AMS000I: JOB  END  Z129936A  JOHN MINCHUK          CPU= 00:00:00.12
 02.13.31 JOB01306  $HASP395 Z129936A ENDED
0------ JES2 JOB STATISTICS ------                                                                                                   
-  27 JUN 2006 JOB EXECUTION DATE                                                                                                   
-          118 CARDS READ                                                                                                           
-          309 SYSOUT PRINT RECORDS                                                                                                 
-            0 SYSOUT PUNCH RECORDS                                                                                                 
-           23 SYSOUT SPOOL KBYTES                                                                                                   
-         0.00 MINUTES EXECUTION TIME                                                                                               
 !! END OF JES SPOOL FILE !!
        1 //Z129936A JOB ,'JOHN MINCHUK',                                         JOB01306
          //             MSGCLASS=U                                                       
          //* $ACFJ219 ACF2 ACTIVE NIU                                                ACF2
          //* MSGCLASS=U added by MVSBATCH v2.04b                                         
          /*JOBPARM ROOM=936                                                             
        2 //STEP1   EXEC  PGM=ASMA90,REGION=512K,PARM='TERM,NOXREF,NOESD,NORLD'           
        3 //STEPLIB   DD  DSN=SYS2.HLA.V120.LOADLIB,DISP=SHR                             
        4 //SYSLIB    DD  DSN=SYS2.MACLIB,DISP=SHR                                       
        5 //          DD  DSN=SYS1.MACLIB,DISP=SHR                                       
        6 //          DD  DSN=T90CSCI.CSCI464.MACLIB,DISP=SHR                             
        7 //SYSLIN    DD  DSN=&&OBJECT,DISP=(NEW,PASS,DELETE),UNIT=PUB,                   
          //   SPACE=(CYL,(1,1))                                                         
        8 //SYSPRINT  DD  SYSOUT=*                                                       
        9 //SYSUT1    DD  UNIT=PUB,SPACE=(CYL,(10,5))                                     
       10 //SYSIN     DD  *                                                               
          //*                                                                             
       11 //STEP2   EXEC  PGM=HEWLDRGO,REGION=2048K,TIME=(0,5),COND=(0,LT,STEP1)         
       12 //SYSLIN    DD  DSN=&&OBJECT,UNIT=PUB,DISP=(OLD,DELETE)                         
       13 //STEPLIB   DD  DSN=T90CSCI.CSCI464.LOADLIB,DISP=SHR                           
       14 //SYSLIB    DD  DSN=SYS2.CALLIB,DISP=SHR                                       
       15 //SYSLOUT   DD  SYSOUT=*                                                       
       16 //INFILE    DD  DSN=T90HCH1.CSCI465.SUMMER06.HW1,DISP=SHR                       
       17 //EXTFILE   DD  UNIT=PUB,SPACE=(TRK,(2,1))                                     
       18 //PRINTER   DD  SYSOUT=*                                                       
       19 //XSNAPOUT  DD  SYSOUT=*                                                       
       20 //SPX$DUMP  DD  SYSOUT=*                                                       
       21 //SYS$DUMP  DD  SYSOUT=*                                                       
       22 //                                                                             
 !! END OF JES SPOOL FILE !!
 IEF236I ALLOC. FOR Z129936A STEP1
 IEF237I 0515 ALLOCATED TO STEPLIB
 IEF237I 0517 ALLOCATED TO SYSLIB
 IEF237I 0500 ALLOCATED TO
 IEF237I 050E ALLOCATED TO
 IGD101I SMS ALLOCATED TO DDNAME (SYSLIN  )
         DSN (SYS06178.T021330.RA000.Z129936A.OBJECT.H01  )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP301                                                               
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IGD101I SMS ALLOCATED TO DDNAME (SYSUT1  )
         DSN (SYS06178.T021330.RA000.Z129936A.R0166817    )
         STORCLAS (TEMPSTOR) MGMTCLAS (        ) DATACLAS (        )
         VOL SER NOS= TMP303                                                               
 IEF237I JES2 ALLOCATED TO SYSIN
 IEC130I SYSTERM  DD STATEMENT MISSING
 IEF142I Z129936A STEP1 - STEP WAS EXECUTED - COND CODE 0002
 IEF285I   SYS2.HLA.V120.LOADLIB                        KEPT         
 IEF285I   VOL SER NOS= SYS302.                           
 IEF285I   SYS2.MACLIB                                  KEPT         
 IEF285I   VOL SER NOS= SYS304.                           
 IEF285I   SYS1.MACLIB                                  KEPT         
 IEF285I   VOL SER NOS= SYSRES.                           
 IEF285I   T90CSCI.CSCI464.MACLIB                       KEPT         
 IEF285I   VOL SER NOS= ACA302.                           
 IGD106I SYS06178.T021330.RA000.Z129936A.OBJECT.H01   PASSED,    DDNAME=SYSLIN 
 IEF285I   Z129936.Z129936A.JOB01306.D0000102.?         SYSOUT       
 IGD105I SYS06178.T021330.RA000.Z129936A.R0166817     DELETED,   DDNAME=SYSUT1 
 IEF285I   Z129936.Z129936A.JOB01306.D0000101.?         SYSIN         
 ************************************************************************************************************************************
 *                                                  STEP TERMINATION STATISTICS                                                     *
 *                                                                                                                                  *
 * STEP NAME     STEP1       START TIME  02:13:30.83   VIRT SYS  USED     248K   PAGE INS              0  STEP CPU      00:00:00.12 *
 * PGM NAME      ASMA90      STOP  TIME 02:13:31.32    VIRT CORE USED     512K   PAGE OUTS             0  JOB  CPU      00:00:00.12 *
 * DISPATCH PRTY   0         ELAP. TIME 00:00:00.49    NUMBER SWAPS           0  NUMBER PAGES          0  SRB TIME      00:00:00.01 *
 * PERF. GROUP         0     SERV UNITS         889    TRANS ACT TIME  00:00:00.38                        COMPLETION CODE      0002 *
 *  MAIN STORAGE UNITS           0     CPU UNITS             668     SRB UNITS              34     I/O UNITS             187        *
 ************************************************************************************************************************************
 *                                                   EXCP STATISTICS                                                                *
 *                                                                                                                                  *
 *  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT  DDNAME   CC# UNIT EXCP COUNT          *
 *  STEPLIB       515         83  SYSLIB        517         37  SYSLIB   + 1  500         59  SYSLIB   + 2  50E          2          *
 *  SYSLIN        518         21  SYSUT1        520        104                                                                      *
 *                                                                                                                                  *
 * EXCP TOTAL             306  VIO PAGE INS          0       VIO PAGE OUTS          0       PAGES SWAPPED IN          0             *
 *                                                                                                                                  *
 ************************************************************************************************************************************
 IEF373I STEP/STEP1   /START 2006178.0213
 IEF374I STEP/STEP1   /STOP  2006178.0213 CPU    0MIN 00.12SEC SRB    0MIN 00.01SEC VIRT   512K SYS   248K EXT     368K SYS    9512K
 IEF202I Z129936A STEP2 - STEP WAS NOT RUN BECAUSE OF CONDITION CODES           
 IEF272I Z129936A STEP2 - STEP WAS NOT EXECUTED.
 ************************************************************************************************************************************
 *                                                  STEP TERMINATION STATISTICS                                                     *
 *                                                                                                                                  *
 * STEP NAME     STEP2       START TIME  02:13:31.32   VIRT SYS  USED       0K   PAGE INS              0  STEP CPU      00:00:00.00 *
 * PGM NAME      HEWLDRGO    STOP  TIME 02:13:31.33    VIRT CORE USED       0K   PAGE OUTS             0  JOB  CPU      00:00:00.12 *
 * DISPATCH PRTY   0         ELAP. TIME 00:00:00.01    NUMBER SWAPS           0  NUMBER PAGES          0  SRB TIME      00:00:00.00 *
 * PERF. GROUP         0     SERV UNITS           0    TRANS ACT TIME  00:00:00.00                        COMPLETION CODE      NXEQ *
 *  MAIN STORAGE UNITS           0     CPU UNITS               0     SRB UNITS               0     I/O UNITS               0        *
 ************************************************************************************************************************************
 IEF373I STEP/STEP2   /START 2006178.0213
 IEF374I STEP/STEP2   /STOP  2006178.0213 CPU    0MIN 00.00SEC SRB    0MIN 00.00SEC VIRT     0K SYS     0K EXT       0K SYS       0K
 IEF237I 0518 ALLOCATED TO SYS00001
 IEF285I   SYS06178.T021331.RA000.Z129936A.R0166819     KEPT         
 IEF285I   VOL SER NOS= TMP301.                           
 IGD105I SYS06178.T021330.RA000.Z129936A.OBJECT.H01   DELETED,   DDNAME=SYSLIN 
 ************************************************************************************************************************************
 *                                                  JOB TERMINATION STATISTICS                                                      *
 *                                                                                                                                  *
 *  JOB NAME    Z129936A  JOB01306                              CPU TIME  00:00:00.12            SRB TIME            00:00:00.01    *
 *                                                                                                                                  *
 *  PROGRAMMER  JOHN MINCHUK                                    INIT DATE 06/27/06   06.178      INITIATION TIME     02:13:30.83    *
 *                                                                                                                                  *
 *  SYSTEM ID   O2B4                                            TERM DATE 06/27/06   06.178      TERMINATION TIME    02:13:31.35    *
 *                                                                                                                                  *
 *  CLASS       M         PERF. GROUP      0                    SERV UNIT        889             ELAPSED TIME        00:00:00.52    *
 *                                                                                                                                  *
 *  MAIN STORAGE UNITS           0     CPU UNITS             668     SRB UNITS              34     I/O UNITS             187        *
 *                                                                                                                                  *
 *  JOB LOG Z129936A 06178 02:13:30.70                          MVS REL   SP6.1.0                                                   *
 *                                                                                                                                  *
 *  ACCTG DATA 0135040675,Z12    9936,T,Z12    ,MINCHUK JOHN A                                   COMPLETION STATUS   C0000          *
 *                                                                                                                                  *
 ************************************************************************************************************************************
 IEF375I  JOB/Z129936A/START 2006178.0213
 IEF376I  JOB/Z129936A/STOP  2006178.0213 CPU    0MIN 00.12SEC SRB    0MIN 00.01SEC
 !! END OF JES SPOOL FILE !!
ASMA415N ** WARNING ** Unable to open TERM file                                                                                     
?                                                                                                                                   
                                         High Level Assembler Option Summary                   (PTF UN99930)   Page    1           
                                                                                            HLASM R2.0  2006/06/27 02.13           
  Overriding Parameters-  TERM,NOXREF,NOESD,NORLD                                                                                   
  No Process Statements                                                                                                             
                                                                                                                                   
                                                                                                                                   
  Options for this Assembly                                                                                                         
   NOADATA                                                                                                                         
     ALIGN                                                                                                                         
   NOASA                                                                                                                           
     BATCH                                                                                                                         
   NOCOMPAT                                                                                                                         
   NODBCS                                                                                                                           
   NODECK                                                                                                                           
     DXREF                                                                                                                         
   NOESD                                                                                                                           
   NOEXIT                                                                                                                           
     FLAG(0,ALIGN,CONT,RECORD,NOSUBSTR)                                                                                             
   NOFOLD                                                                                                                           
     LANGUAGE(EN)                                                                                                                   
   NOLIBMAC                                                                                                                         
     LINECOUNT(60)                                                                                                                 
     LIST(121)                                                                                                                     
     MXREF(SOURCE)                                                                                                                 
     OBJECT                                                                                                                         
     OPTABLE(UNI)                                                                                                                   
   NOPCONTROL                                                                                                                       
   NOPESTOP                                                                                                                         
   NOPROFILE                                                                                                                       
   NORA2                                                                                                                           
   NORENT                                                                                                                           
   NORLD                                                                                                                           
     SIZE(MAX)                                                                                                                     
     SYSPARM()                                                                                                                     
     TERM(WIDE)                                                                                                                     
   NOTEST                                                                                                                           
   NOTRANSLATE                                                                                                                     
     USING(NOLIMIT,MAP,WARN(15))                                                                                                   
   NOXOBJECT                                                                                                                       
   NOXREF                                                                                                                           
                                                                                                                                   
  No Overriding DD Names                                                                                                           
?                                                                                                                                   
                                                                                                               Page    2           
  Active Usings: None                                                                                                               
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R2.0  2006/06/27 02.13           
                                      1 *                                                                                           
                                      2 *                                                                                           
                                      3 *                                                                                           
000000                                4 $REC        DSECT                                                                           
000000                                5 $EMPID      DS    CL8                                                                       
000008                                6 $NAME       DS    CL20                                                                     
00001C                                7 $WORKED     DS    CL3                                                                       
00001F                                8 $SICK       DS    CL3                                                                       
000022                                9 $OVERT      DS    CL3                                                                       
000025                               10 $CALLS      DS    CL4                                                                       
000029                               11 $CALLLEN    DS    CL5                                                                       
00002E                               12 $WWW        DS    CL5                                                                       
                                     13 *                                                                                           
                                     14 *                                                                                           
                                     15 *                                                                                           
000000                               16 PROG1    CSECT                        PROGRAM 1 START                                       
                                     17          PRINT    NOGEN               REALLY WHO KNOWS?...                                 
000000 47F0 F00C            0000C    18          XSAVE    SA=*,BR=12,TR=NO    SAVE THE REGS                                         
000020 90E1 C02C            0004C    33          PGMDUMP                      BETTER FORMATED DUMPS                                 
                                     49 *                                                                                           
                                     50 *                                                                                           
                                     51 *                                                                                           
000060 4510 C048            00068    52           OPEN (NEWDCB,(OUTPUT))      OPEN THE OUTPUT FILE                                 
00006A 12FF                          58           IF (LTR,15,15,NZ)           IF SOMETHING WENT WRONG                               
000070 4110 01BE            001BE    62             ABEND 446,DUMP            KILL THE PROG                                         
                                     69           ENDIF                                                                             
                                     72 *                                                                                           
000080 4510 C068            00088    73           OPEN  (INDCB,(INPUT))       OPEN THE INPUT FILE                                   
00008A 12FF                          79           IF (LTR,15,15,NZ)           IF SOMETHING WENT WRONG                               
000090 4110 01BC            001BC    83             ABEND 444,DUMP            AHBEND WITH COND CODE 444                             
                                     90           ENDIF                       CLOSE THIS IF                                         
                                     93 *                                                                                           
0000A0 4510 C088            000A8    94           OPEN (OUTDCB,(OUTPUT))      OPEN THE PRINT FILE                                   
0000AA 12FF                         100           IF (LTR,15,15,NZ)           CHECK IF IT WORKED                                   
0000B0 4110 01BD            001BD   104             ABEND 445,DUMP            DUMP 445 IF IT DIDNT                                 
                                    111           ENDIF                       CLOSE THIS IF                                         
                                    114 *                                                                                           
                                    115 *                                                                                           
                                    116 *                                                                                           
0000C0 4110 C204            00224   117           GET     INDCB               ADDY OF FIRST REC IN R1                               
                 R:1  00000         122           USING   $REC,1              ADDRESSABILITY OF THE BUFFER                         
                                    123 *                                                                                           
0000CC 95D5 C324      00344         124           DO WHILE=(CLI,FLAG,EQ,C'N') LOOP THREW RECORDS                                   
0000D4 D207 C17D 1000 0019D 00000   128            MVC PLINE+1(8),$EMPID       MOVE OVER EMPLOYEE ID                               
0000DA D213 C185 1008 001A5 00008   129            MVC PLINE+9(20),$NAME       MOVE OVER EMPLOYEE NAME                             
0000E0 D202 C199 101C 001B9 0001C   130            MVC PLINE+29(3),$WORKED     MOVE OVER EMPLOYEE DAYS WORKED                       
0000E6 D202 C19C 101F 001BC 0001F   131            MVC PLINE+32(3),$SICK       MOVE OVER EMPLOYEE SICK DAYS                         
0000EC D202 C19F 1022 001BF 00022   132            MVC PLINE+35(3),$OVERT      MOVE OVER EMPLOYEE OVERTIME                         
0000F2 D203 C1A2 1025 001C2 00025   133            MVC PLINE+38(4),$CALLS      MOVE OVER EMPLOYEE CALL TOTAL                       
0000F8 D204 C1A6 1029 001C6 00029   134            MVC PLINE+42(5),$CALLLEN    MOVE OVER EMPLOYEE CALL LENGTH                       
0000FE D204 C1AB 102E 001CB 0002E   135            MVC PLINE+47(5),$WWW        MOVE OVER EMPLOYEE WWW TIME                         
000104 4110 C264            00284   136            PUT    OUTDCB,PLINE         PRINT OUT THE COPIED LINE                           
000114 4110 C204            00224   142            GET    INDCB                GET THE NEXT RECORD                                 
000120 47F0 C0AC            000CC   147           ENDDO                       END THIS LOOP                                         
i                                    150           DROP    1                   UNDO THE USING STATEMENT                             
                                                                                                               Page    3           
  Active Usings: PROG1+X'20',R12                                                                                                   
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R2.0  2006/06/27 02.13           
                                    151 *                                                                                           
000124 4510 C10C            0012C   152           CLOSE   (INDCB)             CLOSE THE INPUT FILE                                 
00012E 0700                         158           CLOSE   (OUTDCB)            CLOSE THE PRINT FILE                                 
00013A 0700                         164           CLOSE   (NEWDCB)            CLOSE THE NEW FILE                                   
                                    170 *                                                                                           
                                    171 *                                                                                           
                                    172 *                                                                                           
000146 58DD 0004            00004   173          XRETURN  SA=*,RC=0,TR=NO     RESTORE THE REGISTERS                                 
                                    181 *                                                                                           
                                    182 *                                                                                           
                                    183 *                                                                                           
00019C 4040404040404040             184 PLINE    DC       CL133' '            HOLD DATA TO PRINT                                   
                                    185 *                                                                                           
000224 0000000000000000             186 INDCB     DCB  DDNAME=INFILE,DEVD=DA,DSORG=PS,MACRF=GL,EODAD=EOF                           
                                    227 OUTDCB    DCB  DDNAME=PRINTER,DSORG=PS,DEVD=DA,LRECL=133,              X                   
000284 0000000000000000                                BLKSIZE=1330,RECFM=FBA,MACRF=PM                                             
                                    268 NEWDCB    DCB  DDNAME=EXTFILE,DSORG=PS,RECFM=FB,MACRF=(GM,PM),         X                   
0002E4 0000000000000000                                EODAD=EOF2,LRECL=133                                                         
                                    309 *                                                                                           
                                    310 *                                                                                           
                                    311 *                                                                                           
000344 D5                           312 FLAG     DC       C'N'                SPACE FOR FLAG                                       
000346                              313 EOF      DS       0H                  INFILE END OF DATA RTN                               
000346 92E8 C324      00344         314          MVI      FLAG,C'Y'           CHANGE THE FLAG                                       
00034A 07FE                         315          BR       14                  RETURN FROM EODAD                                     
                                    316 *                                                                                           
00034C D5                           317 FLAG2    DC       C'N'                SPACE FOR FLAG 2                                     
00034E                              318 EOF2     DS       0H                  OUTFILE END OF DATA RTN                               
00034E 92E8 C32C      0034C         319          MVI      FLAG2,C'Y'          CHANGE FLAG                                           
000352 07FE                         320          BR       14                  RETURN FROM EODAD                                     
                                    321 *                                                                                           
                                    322 *                                                                                           
                                    323 *                                                                                           
000000                              324          END    PROG1                 PROGRAM 1 END                                         
?                                                                                                                                   
                                          Macro and Copy Code Source Summary                                   Page    4           
 Con Source                                        Volume    Members                        HLASM R2.0  2006/06/27 02.13           
  L1 SYS2.MACLIB                                   SYS304    COND     CPARSE   DO       ENDDO    ENDIF    EXLBL                     
                                                             GENCODE  GETCC    IF       PUSHNEST XCHAR    XIDENT                   
                                                             XMUSE    XRETURN  XSAVE                                               
  L2 SYS1.MACLIB                                   SYSRES    ABEND    CLOSE    DCB      GET      IHBINNRA IHBINNRR                 
                                                             IHB01    LOAD     OPEN     PUT      SYSSTATE                           
  L3 T90CSCI.CSCI464.MACLIB                        ACA302    PGMDUMP                                                               
?                                                                                                                                   
                                                Dsect Cross Reference                                          Page    5           
Dsect     Length      Id       Defn                                                         HLASM R2.0  2006/06/27 02.13           
$REC     00000033  FFFFFFFF       4                                                                                                 
?                                                                                                                                   
                                                      Using Map                                                Page    6           
                                                                                            HLASM R2.0  2006/06/27 02.13           
  Stmt  -----Location----- Action ------------Using------------ Reg Max    Last  Label and Using Text                               
          Count      Id           Type          Value     Id        Disp   Stmt                                                     
    21  00000000  00000001 USING  ORDINARY    00000000 00000001  15 158      27  *,15                                               
    30  00000020  00000001 DROP                                  15              15                                                 
    31  00000020  00000001 USING  ORDINARY    00000020 00000001  12 32C     319  *,12                                               
   122  000000CC  00000001 USING  ORDINARY    00000000 FFFFFFFF   1 02E     135  $REC,1                                             
   150  00000124  00000001 DROP                                   1              1                                                 
?                                                                                                                                   
                                  Diagnostic Cross Reference and Assembler Summary                             Page    7           
                                                                                            HLASM R2.0  2006/06/27 02.13           
     No Statements Flagged in this Assembly                                                                                         
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 2.0, PTF UN99930                                                                           
SYSTEM: MVS/ESA SP 6.1.0           JOBNAME: Z129936A    STEPNAME: STEP1      PROCSTEP: (NOPROC)                                     
Datasets Allocated for this Assembly                                                                                               
 Con DDname   Dataset Name                                 Volume  Member                                                           
  P1 SYSIN    Z129936.Z129936A.JOB01306.D0000101.?                                                                                 
  L1 SYSLIB   SYS2.MACLIB                                  SYS304                                                                   
  L2          SYS1.MACLIB                                  SYSRES                                                                   
  L3          T90CSCI.CSCI464.MACLIB                       ACA302                                                                   
     SYSLIN   SYS06178.T021330.RA000.Z129936A.OBJECT.H01   TMP301                                                                   
     SYSPRINT Z129936.Z129936A.JOB01306.D0000102.?                                                                                 
                                                                                                                                   
    256K allocated to Buffer Pool,          461K would be required for this to be an In-Storage Assembly                           
     89 Primary Input Records Read         4385 Library Records Read         52 Work File Reads                                     
    184 Primary Print Records Written        21 Punch Records Written        52 Work File Writes                                   
      0 ADATA Records Written                                                                                                       
Assembly Start Time: 02.13.30 Stop Time: 02.13.31 Processor Time: 00.00.00.0972                                                     
Return Code 002                                                                                                                     
 !! END OF JES SPOOL FILE !!


I really should be seeing some kind of information from my input file on the server. Any help is appreciated.
Back to top
View user's profile Send private message

Bharanidharan

New User


Joined: 20 Jun 2005
Posts: 86
Location: Chennai, India

PostPosted: Tue Jun 27, 2006 3:13 pm    Post subject: Re: QSAM and disk access
Reply with quote

The first thing to be jotted down is you didn't obtain your link-edited module, since your HEWL (step 2) didn't get through because of ASMA90's (step 1) RC. ASMA90 returned 0002 because SYSTERM DD statement is missing (from your JESMSGLG). I can't see any more errors from your listing, so I think this should do it.
In addition, it is always better to give sufficient work space for ASMA90. We normally give them through SYSUT1, SYSUT2 etc.

Correct these, try again and let us know.
Back to top
View user's profile Send private message
sporkit150

New User


Joined: 27 Jun 2006
Posts: 4

PostPosted: Wed Jun 28, 2006 1:54 am    Post subject:
Reply with quote


Code:
ASMA415N ** WARNING ** Unable to open TERM file
Overriding Parameters-  TERM,NOXREF,NOESD,NORLD


that goodness finally got it working. were just learning jcl now and knew these lines had something to do with my problem.

Code:
//STEP1   EXEC  PGM=ASMA90,REGION=512K,PARM='TERM,NOXREF,NOESD,NORLD'


this is where my problem was. we havent learned all the parameters for the assembler yet and for some reason i included TERM. after i removed it everything worked out as planned.

thanks so much for the help.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts find RACF group for access to spooled... jzhardy JCL & VSAM 1 Mon May 08, 2017 11:46 am
No new posts Edit large number of datasets (QSAM) zh_lad TSO/ISPF 3 Tue Apr 04, 2017 6:08 pm
No new posts IMS DC screen Access sivasaras IMS DB/DC 3 Fri Nov 18, 2016 6:38 pm
No new posts Access SQLCA fields inside a stored p... gangapd DB2 6 Thu Oct 27, 2016 10:20 am
No new posts RACF profile access vasanthz All Other Mainframe Topics 11 Fri Sep 23, 2016 5:51 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us