| View previous topic :: View next topic |
| Author |
Message |
Shaikh Riazur Nabi
Beginner
Joined: 11 Aug 2005
Posts: 6
Topics: 5
|
 Posted: Tue Oct 04, 2005 1:24 am Post subject: U3336 abend in Quikjob |
 |
|
Hi,
I am getting U3336 abend during running of my Quikjob. Can anybody please, help me to fix why this abend is coming?
Regards,
Shaikh Riazur Nabi |
|
| Back to top |
|
 |
Phantom
Data Mgmt Moderator
Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
|
| Posted: Tue Oct 04, 2005 1:37 am Post subject: |
|
|
Shaikh Riazur Nabi,
User Abends could be for many reasons. Most probably due to syntax errors. You need to post your complete Quikjob card as well as the Sysout/sysprint error message for us to determine the problem.
P.S: When you paste your code, please use BB Tags, which makes the code readable. (for more info, see below)
{code}
line 1
line 2
line 3
...
{/code}
(Note: You need to replace '{' by '[' and ']' by ']' when you use the tag).
Thanks,
Phantom |
|
| Back to top |
|
|
Shaikh Riazur Nabi
Beginner
Joined: 11 Aug 2005
Posts: 6
Topics: 5
|
| Posted: Tue Oct 04, 2005 4:33 am Post subject: |
|
|
Hi,
Please, get my Quikjob which is giving U3336 abend as following.
| Code: |
OPTION SEQCHK=NO,HDRDOTS=NO,EDITALL=YES
EQU MASTER1 INF01-600
EQU INF-ACCT-NUM INF01-10
EQU INF-PD-TO-DATE INF214-219
EQU INF-CUST-SVCE-ACT INF233-233
EQU INF-TERM INF344-345-P
EQU INF-PAYF-NOTIF-DT INF346-349-P
EQU SAMPLE1 DET01-459
EQU DET-HMS-ACCT DET450-459
EQU OUT-FILE1 OFA01-480
EQU OUT-CHUNK OFA01-459
EQU OUT-BAR52 OFA460-460
EQU OUT-PD-TO-DATE OFA461-466
EQU OUT-BAR53 OFA467-467
EQU OUT-CUST-SVCE-ACT OFA468-468
EQU OUT-BAR54 OFA469-469
EQU OUT-TERM OFA470-472
EQU OUT-BAR55 OFA473-473
EQU OUT-PAYF-NOTIF-DT OFA474-480
EQU WS-RECORDS-READ-SAMPLE WST1-9.
EQU WS-RECORDS-READ-MASTER WST10-18.
EQU WS-RECORDS-WRITTEN WST19-27.
EQU WS-RECORDS-NOT-IN-MASTER WST28-36.
EQU WS-RECORDS-NOT-IN-SAMPLE WST37-45.
* INITIALIZATION *
*----------------------------------------------------------------------*
001 MOVE ZEROES TO WS-RECORDS-WRITTEN.
002 MOVE ZEROES TO WS-RECORDS-READ-MASTER.
003 MOVE ZEROES TO WS-RECORDS-WRITTEN.
004 MOVE ZEROES TO WS-RECORDS-NOT-IN-MASTER.
005 MOVE ZEROES TO WS-RECORDS-NOT-IN-SAMPLE.
006 GET INF ATEND 011.
ADD C'1' TO WS-RECORDS-READ-MASTER.
007 GET DET ATEND 012.
ADD C'1' TO WS-RECORDS-READ-SAMPLE.
008 IF INF-ACCT-NUM = DET-HMS-ACCT
MOVE DET01-459 TO OFA01-459
MOVE C'|' TO OFA460-460
MOVE INF214-219 TO OFA461-466
MOVE C'|' TO OFA467-467
MOVE INF233-233 TO OFA468-468
MOVE C'|' TO OFA469-469
MOVE INF344-345-P TO OFA470-472
MOVE C'|' TO OFA473-473
MOVE INF346-349-P TO OFA474-480
WRITE OFA
ADD C'1' TO WS-RECORDS-WRITTEN
GET INF ATEND 011
ADD C'1' TO WS-RECORDS-READ-MASTER
GET DET ATEND 012
ADD C'1' TO WS-RECORDS-READ-SAMPLE
GO TO 008
ENDIF.
009 IF INF-ACCT-NUM < DET-HMS-ACCT
ADD C'1' TO WS-RECORDS-NOT-IN-SAMPLE
GET INF ATEND 011
ADD C'1' TO WS-RECORDS-READ-MASTER
GO TO 008
ENDIF.
010 IF INF-ACCT-NUM > DET-HMS-ACCT
ADD C'1' TO WS-RECORDS-NOT-IN-MASTER
GET DET ATEND 011
ADD C'1' TO WS-RECORDS-READ-SAMPLE
GO TO 008
ENDIF.
011 GET DET ATEND 999
ADD C'1' TO WS-RECORDS-READ-SAMPLE
ADD C'1' TO WS-RECORDS-NOT-IN-MASTER
GO TO 011.
012 ADD C'1' TO WS-RECORDS-NOT-IN-SAMPLE
GET INF ATEND 999
ADD C'1' TO WS-RECORDS-READ-MASTER
GO TO 012.
*----------------------------------------------------------------------*
* DISPLAY SUMMARY *
*----------------------------------------------------------------------*
999 END
EOJ.
|
Sysprint Message
----------------------
| Code: |
JOBNAME=VNDW22AK VISION:REPORT V16L1 USER CONTROL STATEMENTS 10
STEPNAME=STEP040 QUKPR1 ERROR DIAGNOSTICS APPLY TO PRECEDING C
--------------------------------------------------------------------------------
(1) OPTION SEQCHK=NO,HDRDOTS=NO,EDITALL=YES
(2) *-----------------------------------------------------------
(3) * PURPOSE
(4) *-----------------------------------------------------------
(5) * THIS QUIKJOB COMPARES THE MASTER FILE AND SAMPLE
(6) * PREPARES THE FINAL OUTPUT FILE
(7) *-----------------------------------------------------------
(8)
(9) *-----------------------------------------------------------
(10) * MASTER FILE RECORD LAY OUT
(11) *-----------------------------------------------------------
--------------------------------------------------------- OPTIONS IN EFFECT ----
BWZ=NO INFDD=INF LIST=YES OFQDD=OFQ
BWZ=NO INFDD=INF LIST=YES OFQDD=OFQ
CFLEOPT=NO INGDD=ING LISTABL=NO OFRDD=OFR
CLRVIP=NO INHDD=INH LISTOPT=YES OFSDD=OFS
CLRVOP=NO INIDD=INI MOVCVTX=NO OFTDD=OFT
CRSIGN=NO INJDD=INJ MSGROLL=YES OFUDD=OFU
DELUPGM=YES INKDD=INK OFADD=OFA OFVDD=OFV
DETDD=DET INLDD=INL OFBDD=OFB OFWDD=OFW
EDIT=NO INMDD=INM OFCDD=OFC OFXDD=OFX
EDITALL=YES INNDD=INN OFDDD=OFD OFYDD=OFY
EDTNAME=QUIKEMSK INODD=INO OFEDD=OFE OFZDD=OFZ
EUROPTN=NO INPDD=INP OFFDD=OFF OVLY=NO
EXPMLOG=NO INQDD=INQ OFGDD=OFG PARMFLD=YES
EXPMLST=YES INRDD=INR OFHDD=OFH PFLEOPT=NO
HDRDOTS=NO INSDD=INS OFIDD=OFI PRNTLCT=54
IFNUM=NO INTDD=INT OFJDD=OFJ PRTDD=SYSPRINT
INADD=INA INUDD=INU OFKDD=OFK PRTSIZE=133
INBDD=INB INVDD=INV OFLDD=OFL PUNDD=SYSPUNCH
INCDD=INC INWDD=INW OFMDD=OFM PUNSIZE=81
INDD=SYSIN INXDD=INX OFNDD=OFN QJMDUMP=YES
INDDD=IND INYDD=INY OFODD=OFO RPTDD=SYSPRINT
INEDD=INE INZDD=INZ OFPDD=OFP RPTSPCE=0
--------------------------------------------------------------------------------
(12) EQU MASTER1 INF01-600
(13) EQU INF-ACCT-NUM INF01-10
(14) EQU INF-PD-TO-DATE INF214-219
(15) EQU INF-CUST-SVCE-ACT INF233-233
(16) EQU INF-TERM INF344-345-P
(17) EQU INF-PAYF-NOTIF-DT INF346-349-P
(18) *-----------------------------------------------------------
(19) * SAMPLE FILE RECORD LAY OUT
(20) *-----------------------------------------------------------
(21)
(22) EQU SAMPLE1 DET01-459
(23) EQU DET-HMS-ACCT DET450-459
(24)
(25) *-----------------------------------------------------------
(26) * OUTPUT FILE RECORD LAY OUT
(27) *----------------------------------------------------------
(28)
(29) EQU OUT-FILE1 OFA01-480
(30) EQU OUT-CHUNK OFA01-459
JOBNAME=VNDW22AK VISION:REPORT V16L1 USER CONTROL STATEMENTS 1
STEPNAME=STEP040 QUKPR1 ERROR DIAGNOSTICS APPLY TO PRECEDING
-------------------------------------------------------------------------------
(31) EQU OUT-BAR52 OFA460-460
(32) EQU OUT-PD-TO-DATE OFA461-466
(33) EQU OUT-BAR53 OFA467-467
(34) EQU OUT-CUST-SVCE-ACT OFA468-468
(35) EQU OUT-BAR54 OFA469-469
(36) EQU OUT-TERM OFA470-472-P
(37) EQU OUT-BAR55 OFA473-473
(38) EQU OUT-PAYF-NOTIF-DT OFA474-480-P
(39) EQU FILLER OFA480-480
(40) *-----------------------------------------------------------
(41) * COUNTERS
(42) *-----------------------------------------------------------
(43) EQU WS-RECORDS-READ-SAMPLE WST1-9.
(44) EQU WS-RECORDS-READ-MASTER WST10-18.
(45) EQU WS-RECORDS-WRITTEN WST19-27.
(46) EQU WS-RECORDS-NOT-IN-MASTER WST28-36.
(47) EQU WS-RECORDS-NOT-IN-SAMPLE WST37-45.
(48)
(49)
(50) *-----------------------------------------------------------
(51) * INITIALIZATION
(52) *-----------------------------------------------------------
(53)
(54) 001 MOVE ZEROES TO WS-RECORDS-WRITTEN
(55) 002 MOVE ZEROES TO WS-RECORDS-READ-MA
(56) 003 MOVE ZEROES TO WS-RECORDS-WRITTEN
(57) 004 MOVE ZEROES TO WS-RECORDS-NOT-IN-
(58) 005 MOVE ZEROES TO WS-RECORDS-NOT-IN
(68) 006 GET INF ATEND 011.
(69) ADD C'1' TO WS-RECORDS-READ-MAS
(70) 007 GET DET ATEND 012.
(71) ADD C'1' TO WS-RECORDS-READ-SAM
(72) *----------------------------------------------------------
(73) * B-LINE LOGIC BETWEEN MASTER FILE AND SAMPLE FILE
(74) *----------------------------------------------------------
(75)
(76) *008 IF INF-ACCT-NUM EQ DET-HMS-ACCT
(77) 008 IF INF-ACCT-NUM = DET-HMS-ACCT
(78) MOVE DET01-459 TO OFA01-459
(79) MOVE C'|' TO OFA460-460
(80) MOVE INF214-219 TO OFA461-466
(81) MOVE C'|' TO OFA467-467
(82) MOVE INF233-233 TO OFA468-468
(83) MOVE C'|' TO OFA469-469
(84) MOVE INF344-345-P TO OFA470-472-P
(85) MOVE C'|' TO OFA473-473
1JOBNAME=VNDW22AK VISION:REPORT V16L1 USER CONTROL STATEMENTS 1
STEPNAME=STEP040 QUKPR1 ERROR DIAGNOSTICS APPLY TO PRECEDING
-------------------------------------------------------------------------------
(86) MOVE INF346-349-P TO OFA474-480-P
(87) WRITE OFA
(88) ADD C'1' TO WS-RECORDS-WRITTE
(89) GET INF ATEND 011
(90) ADD C'1' TO WS-RECORDS-READ-M
(91) GET DET ATEND 012
(92) ADD C'1' TO WS-RECORDS-READ-S
(93) GO TO 008
(94) ENDIF.
(95)
(96) 009 IF INF-ACCT-NUM < DET-HMS-ACCT
(97) ADD C'1' TO WS-RECORDS-NOT-IN
(98) GET INF ATEND 011
(99) ADD C'1' TO WS-RECORDS-READ-M
(100) GO TO 008
(101) ENDIF.
(102)
(103) 010 IF INF-ACCT-NUM > DET-HMS-ACCT
(104) ADD C'1' TO WS-RECORDS-NOT-IN
(105) GET DET ATEND 011
(106) ADD C'1' TO WS-RECORDS-READ-S
(107) GO TO 008
(108) ENDIF.
(109) 011 GET DET ATEND 013
(110) ADD C'1' TO WS-RECORDS-READ-S
(111) ADD C'1' TO WS-RECORDS-NOT-IN
(112) GO TO 011.
(113)
(114) 012 ADD C'1' TO WS-RECORDS-NOT-IN
(115) GET INF ATEND 013
(116) ADD C'1' TO WS-RECORDS-READ-M
(117) GO TO 012.
(118) *----------------------------------------------------------
(119) * DISPLAY SUMMARY
(120) *----------------------------------------------------------
(121)
(122) 013 MOVE C' ' TO PRT10
(123) PRINT
(124) MOVE C'***********************************************
(125) TO PRT1
(126) PRINT
(127) MOVE C'*' TO PRT1
(128) MOVE C'QUIKJOB - SUMMARY' TO PRT20
(129) MOVE C'*' TO PRT45
(130) PRINT
(131) MOVE C'***********************************************
(132) TO PRT1
(133) PRINT
(134) MOVE C'*' TO PRT1
(135) MOVE C'NO.OF ACCTS READ FROM GEMDAILY : '
(136) TO PRT6
(137) MOVE WS-RECORDS-READ-SAMPLE TO PRT47
(138) PRINT
(139) MOVE C'NO.OF ACCTS READ FROM UNLOAD FILE : '
(140) TO PRT6
1JOBNAME=VNDW22AK VISION:REPORT V16L1 USER CONTROL STATEMENTS 1
STEPNAME=STEP040 QUKPR1 ERROR DIAGNOSTICS APPLY TO PRECEDING
-------------------------------------------------------------------------------
(141) MOVE WS-RECORDS-READ-MASTER TO PRT47
(142) PRINT
(143) MOVE C'*' TO PRT1
(144) MOVE C'NO.OF ACCTS WRITTEN TO OUTPUT FILE : '
(145) TO PRT6
(146) MOVE WS-RECORDS-WRITTEN TO PRT47
(147) PRINT
(148) MOVE C'*' TO PRT1
(149) MOVE C'NO.OF ACCTS NOT PRESENT IN MASTER : '
(150) TO PRT6
(151) MOVE WS-RECORDS-NOT-IN-MASTER TO PRT47
(152) PRINT
(153) MOVE C'*' TO PRT1
(154) MOVE C'NO.OF ACCTS NOT PRESENT IN SAMPLE : '
(155) TO PRT6
(156) MOVE WS-RECORDS-NOT-IN-SAMPLE TO PRT47
(157) PRINT
(158) MOVE C'***********************************************
(159) TO PRT1
(160) PRINT
(161) GO TO 999
(162) 999 END
1
1 PROGRAM CHECK AT ADDRESS 2460D0A6 FOR FOLLOWING REASON -- DATA EXCEPTIO
REGISTERS AT ABEND -- R0-R15:
00000001 00006930 2460CA18 0000A840 24607607 FFFFFFFF
00007318 2460E744 2460E758 0000A000 2460D000 000079CC
- 1 RECORDS FOR INF FILE AT TERMINATION.
0 INF1-600 0008561417180000010561608JORGE M MEDEIROS
FFFFFFFFFFFFFFFFFFFFFFFFFDDDCC4D4DCCCCDDE4444444444444
000856141718000001056160816975040454599620000000000000
01..05...10...15...20...25...30...35...40...45...50...5
444444444444444444444444444444444444444444444444444444
000000000000000000000000000000000000000000000000000000
101..05...10...15...20...25...30...35...40...45...50...5
%050728 & * 063 TALLMAN ST
4444444008456FFFFFF15750000008004010002FFF4ECDDDCD4EE4
000000001158C050728002C0000C540C060C05C063031334150230
201..05...10...15...20...25...30...35...40...45...50...5
NEW BEDFORD MA02746 05082
4444444444DCE4CCCCDDC4444444444DCFFFFF44444300000FFFFF
00000000005560254669400000000004102746000006C000C05082
301..05...10...15...20...25...30...35...40...45...50...5
444444444444444444444444444444444444444444444444444444
000000000000000000000000000000000000000000000000000000
401..05...10...15...20...25...30...35...40...45...50...5
0 501-600 SAME AS ABOVE
- 0 RECORDS FOR OFA FILE AT TERMINATION.
0 OFA1-480
444444444444444444444444444444444444444444444444444444
000000000000000000000000000000000000000000000000000000
01..05...10...15...20...25...30...35...40...45...50...5
0 101-400 SAME AS ABOVE
444444444444444444444444444444444444444444444444444444
000000000000000000000000000000000000000000000000000000
401..05...10...15...20...25...30...35...40...45...50...5
- 1 RECORDS FOR DET FILE AT TERMINATION.
1
0 DET1-459 01|01|01130125117949|01000925200783| |RLBD|457986864
FF4FF4FFFFFFFFFFFFFF4FFFFFFFFFFFFFF44444DDCC4FFFFFFFFF
01F01F01130125117949F01000925200783F000F9324F457986864
01..05...10...15...20...25...30...35...40...45...50...5
|REASOR, VELVELY M |8 PECAN DR
4DCCEDD64ECDECDE4D4444444444444444444F4DCCCD4CD4444444
F951269B0553553804000000000000000000F80753150490000000
101..05...10...15...20...25...30...35...40...45...50...5
|AL|36702 |R5518J6A41|95|7|RLSD|TA|B|RL|NRF |1998
444CD4FFFFF44444DFFFFDFCFF4FF4F4DDEC4EC4C4DD4DDC44FFFF
00F13F367020000F9551816141F95F7F9324F31F2F93F5960F1998
201..05...10...15...20...25...30...35...40...45...50...5
.00|3|+0000000.00|20000214|00.00000|+0000000.00|N
4FF4F44FFFFFFF4FF4FFFFFFFF4FF4FFFFF44FFFFFFF4FF4D44444
B00F3FE0000000B00F20000214F00B00000FE0000000B00F500000
301..05...10...15...20...25...30...35...40...45...50...5
|+0000000.00|N| | |N|N|20010225|00085
444444444FFFFFFF4FF4D444444444444444D4D4FFFFFFFF4FFFFF
0000000FE0000000B00F5F0F00000000000F5F5F20010225F00085
401..05...10...15...20...25...30...35...40...45...50...5
- 265 RECORDS FOR PRT FILE AT TERMINATION.
0 PRT1-132
444444444444444444444444444444444444444444444444444444
000000000000000000000000000000000000000000000000000000
01..05...10...15...20...25...30...35...40...45...50...5
44444444444444444444444444444444
00000000000000000000000000000000
101..05...10...15...20...25...30..
0 WST1-1000 000000001000000000000000000000000000
000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000
000000000000000001000000000000000000000000000000000000
01..05...10...15...20...25...30...35...40...45...50...5
000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000
101..05...10...15...20...25...30...35...40...45...50...5
0 201-1000 SAME AS ABOVE
0 VAL1-799 10/03/05OCTOBER 00000000 VNDW22AK000010030
0000FF6FF6FFDCEDCCD44FFFFFFFF00000000EDCEFFCDFFFFFFFFF
000C10103105633625900000000000000000C55462212000010030
01..05...10...15...20...25...30...35...40...45...50...5
1
000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000
101..05...10...15...20...25...30...35...40...45...50...5
DET -
0000000000000000000000000000CCE00000067000000000000000
000000000000000000000000000045300010000000000000000000
000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000
101..05...10...15...20...25...30...35...40...45...50...5
0 201-1000 SAME AS ABOVE
0 VAL1-799 10/03/05OCTOBER 00000000 VNDW22AK000010030
0000FF6FF6FFDCEDCCD44FFFFFFFF00000000EDCEFFCDFFFFFFFFF
000C10103105633625900000000000000000C55462212000010030
01..05...10...15...20...25...30...35...40...45...50...5
1
000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000
101..05...10...15...20...25...30...35...40...45...50...5
DET -
0000000000000000000000000000CCE00000067000000000000000
000000000000000000000000000045300010000000000000000000
201..05...10...15...20...25...30...35...40...45...50...5
000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000
301..05...10...15...20...25...30...35...40...45...50...5
2005
0000000000FFFF0000000000000000000000000000000000000000
000000000020050000000000000000000000000000000000000000
401..05...10...15...20...25...30...35...40...45...50...5
000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000
501..05...10...15...20...25...30...35...40...45...50...5
0 601-700 SAME AS ABOVE
000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000
701..05...10...15...20...25...30...35...40...45...50...5
******************************* BOTTOM OF DATA ********************************
|
|
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Tue Oct 04, 2005 4:58 am Post subject: |
|
|
Shaikh Riazur Nabi,
Your Job abended with a data exception. In your INF1 you have defined 2 fields
| Code: |
EQU INF-TERM INF344-345-P
EQU INF-PAYF-NOTIF-DT INF346-349-P
|
and the contents are as follows
| Code: |
4444444444DCE4CCCCDDC4444444444DCFFFFF44444300000FFFFF
00000000005560254669400000000004102746000006C000C05082
301..05...10...15...20...25...30...35...40...45...50...5
|
If you look at the data starting from 346 to 349 it isn't a valid packed decimal number. I guess the data is 5 bytes long instead of 4 bytes. So you may need to change your defintion of EQU INF-PAYF-NOTIF-DT to
| Code: |
EQU INF-PAYF-NOTIF-DT INF346-350-P
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Phantom
Data Mgmt Moderator
Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
|
| Posted: Tue Oct 04, 2005 5:09 am Post subject: |
|
|
Great Catch Kolusu, 8)
Thanks,
Phantom |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
