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
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.
Joined: 20 Jun 2005 Posts: 86 Location: Chennai, India
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.
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.