|
In your compile options (See screen prints below) you need to specify *SOURCE for Debig View, then when you start the debugger you can position the cursor on the 01 level and you will see all of the subfields. Hope this helps! Note that some of the option I chose were because of SQL.
Create SQL ILE COBOL Object (CRTSQLCBLI) Level: 2
Type choices, press Enter.
Object . . . . . . . . . . . . . > &N Name
Library . . . . . . . . . . . > HGR0093 Name, *CURLIB
Source file . . . . . . . . . . > &F Name, QCBLLESRC
Library . . . . . . . . . . . > HGR0093 Name, *LIBL, *CURLIB
Source member . . . . . . . . . *OBJ Name, *OBJ
Commitment control . . . . . . . *CHG *CHG, *ALL, *CS, *NONE...
Relational database . . . . . . *LOCAL
Compile type . . . . . . . . . . *PGM *PGM, *SRVPGM, *MODULE
Listing output . . . . . . . . . > *NONE *NONE, *PRINT
Text 'description' . . . . . . . *SRCMBRTXT
Additional Parameters
Precompiler options . . . . . . > *GEN *XREF, *NOXREF, *GEN...
+ for more values > *SQL
More...
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display
F24=More keys
Create SQL ILE COBOL Object (CRTSQLCBLI) Level: 2
Type choices, press Enter.
Target release . . . . . . . . . *CURRENT *CURRENT, *PRV, VxRxMx
INCLUDE file . . . . . . . . . . *SRCFILE Name, *SRCFILE
Library . . . . . . . . . . . *LIBL Name, *LIBL, *CURLIB
Allow copy of data . . . . . . . *YES *YES, *NO, *OPTIMIZE
Close SQL cursor . . . . . . . . *ENDACTGRP *ENDMOD, *ENDACTGRP
Allow blocking . . . . . . . . . *READ *READ, *NONE, *ALLREAD
Delay PREPARE . . . . . . . . . *NO *YES, *NO
Severity level . . . . . . . . . 10 0-40
Date format . . . . . . . . . . > *ISO *JOB, *USA, *ISO, *EUR...
Date separator character . . . . *JOB *JOB, /, ., ,, -, ' ', *BLANK
Time format . . . . . . . . . . > *ISO *HMS, *USA, *ISO, *EUR, *JIS
Time separator character . . . . *JOB *JOB, :, ., ,, ' ', *BLANK
Replace . . . . . . . . . . . . *YES *YES, *NO
RDB connect method . . . . . . . > *RUW *DUW, *RUW
Default Collection . . . . . . . > *NONE Name, *NONE
More...
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display
F24=More keys
Create SQL ILE COBOL Object (CRTSQLCBLI) Level: 2
Type choices, press Enter.
Package . . . . . . . . . . . . *OBJ Name, *OBJ
Library . . . . . . . . . . . *OBJLIB Name, *OBJLIB
IBM SQL Flagging . . . . . . . . *NOFLAG *NOFLAG, *FLAG
ANS flagging . . . . . . . . . . *NONE *NONE, *ANS
Print file . . . . . . . . . . . QSYSPRT Name
Library . . . . . . . . . . . *LIBL Name, *LIBL, *CURLIB
Debugging view . . . . . . . . . > *SOURCE *SOURCE, *NONE
User profile . . . . . . . . . . *NAMING *NAMING, *USER, *OWNER
Dynamic User Profile . . . . . . *USER *USER, *OWNER
Sort Sequence . . . . . . . . . *JOB Name, *HEX, *JOB, *JOBRUN...
Library . . . . . . . . . . . Name, *LIBL, *CURLIB
Language id . . . . . . . . . . *JOB *JOB, *JOBRUN...
Bottom
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display
F24=More keys
-----Original Message-----
From: geir.kildal@entra.no [mailto:geir.kildal@entra.no]
Sent: Thursday, June 08, 2000 04:08 AM
To: cobol400-L@midrange.com
Subject: ILE debugger - problem displaying variables in
structures(COBOL)
Problem: Having compiled a COBOL-program(OPM) with *LSTDBG and started the
debugger , I'm trying to display the contents of level 05-fields(level 01
is working OK!) in WORKING-STORAGE. When I f. ex. use the command 'eval
CUSTNO of WSCUSTREC', the debugger just loops, and never comes back.
If I try to display a level 05-field which do not need qualifying, I get
the message 'Pointer not set for location.....', which is not true, the
program is working. This is quite a big program, 10 000 lines. Navigation
in the program is working all right.
Can anyone help, please?
Mvh.
Geir
+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
