ca.portal.admin

SNAP information for programmer

Discussion created by ca.portal.admin on Jun 30, 2008
Latest reply on Jun 30, 2008 by ca.portal.admin
I have a programmer who is trying to do some debugging of a COBOL
program. He would like to issue a snap to see what is in working
storage at a given point in his program. He has put the SNAP command in
his code, but is only getting the title and the registers. I have
looked at the manual and he seems to be doing everything right. Any
ideas? This 15.3

Here is the code and the results:

000539 *WCL   SNAP TITLE IS WORK-TITLE

000540 *WCL     FROM WS-MARKER   TO END-OF-MY-COMM

000541 *WCL     ON ANY-STATUS NEXT SENTENCE.

000542

000543 MOVE '****** BILL LEE GOING
BACK-MESSAGES LU62 AREA **' =20
000544 TO
WORK-TITLE. =20
000545 *WCL   SNAP TITLE IS WORK-TITLE

000546 *WCL     FROM WS-MULTI-ACCTNO-OUT  TO
WS-FO-MODE-RETURN-GRP =20
000547 *WCL     ON ANY-STATUS NEXT SENTENCE.



Jim, I tested on IDMSMPGD - I did nor get different
results, just the registers and the titles.

080630 12:59:11 TM011 **** BILL LEE GOING
BACK-ACCOUNTS LU62 AREA ** =20
080630 12:59:11 TM011 MOST RECENT USER MODE
REGISTERS. =20
080630 12:59:11 TM011 R0 R1 R2
R3 R4 =20
080630 12:59:11 TM011 165FB3BC 165FB3BC 165FC0C0
165FA088 165FB0C0 165
080630 12:59:11 TM011 R8 R9 R10
R11 R12 =20
080630 12:59:11 TM011 00260088 165F2568 15F8BF2C
15F8DDB4 0026A998 002
080630 12:59:11 TM011 END OF SNAP

080630 12:59:11 TM011 **** BILL LEE GOING
BACK-MESSAGES LU62 AREA ** =20
080630 12:59:11 TM011 MOST RECENT USER MODE
REGISTERS. =20
080630 12:59:11 TM011 R0 R1 R2
R3 R4 =20
080630 12:59:11 TM011 165FB3BC 165FB3BC 165FB390
165FA088 165FB0C0 165
080630 12:59:11 TM011 R8 R9 R10
R11 R12 =20
080630 12:59:11 TM011 165DF93C 165F2568 15F8BF2C
15F8DDB4 0026A998 002


Jim


Jim Rice
jlrice@southernco.com
ph (404) 506-4148
Fax (404) 506- 4870
SO Linc 2988/770.550.2988

This e-mail and any of its attachments may contain proprietary Southern
Company and/or affiliate information that is privileged, confidential,
or protected by copyright belonging to Southern Company and/or its
affiliates. This e-mail is intended solely for the use of the
individual or entity for which it is intended. If you are not the
intended recipient of this e-mail, any dissemination, distribution,
copying, or action taken in relation to the contents of and attachments
to this e-mail is contrary to the rights of Southern Company and/or its
affiliates and is prohibited. If you are not the intended recipient of
this e-mail, please notify the sender immediately by return e-mail and
permanently delete the original and any copy or printout of this e-mail
and any attachments. Thank you. =20
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: SNAP information for programmer
"All:

When I used to debug DC-COBOL programs a lot, I found the fact that the
SNAP always displays the registers was annoying and too much information
to have on the log. We created a new DC message number (900001/999999)
- and I would use the WRITE LOG MESSAGE ID 999999 PARMS FROM __ TO ___.
I would actually create a (gasp!) READY TRACE by putting the paragraph
name in the first FROM/TO and then the data I wanted to display.

In deference to Linda, I also used the debugger - at times. ;)

Tim Gortner
Sogeti USA
Department of ""Soggy"" Human Services
State of Iowa


----- Original message -----
From: ""Rice, James L. (Jim)"" <JLRICE@SOUTHERNCO.COM>
To: IDMS-L@LISTSERV.IUASSN.COM
Date: Mon, 30 Jun 2008 15:24:07 -0400
Subject: SNAP information for programmer

I have a programmer who is trying to do some debugging of a COBOL
program. He would like to issue a snap to see what is in working
storage at a given point in his program. He has put the SNAP command in
his code, but is only getting the title and the registers. I have
looked at the manual and he seems to be doing everything right. Any
ideas? This 15.3

Here is the code and the results:

000539 *WCL   SNAP TITLE IS WORK-TITLE

000540 *WCL     FROM WS-MARKER   TO END-OF-MY-COMM

000541 *WCL     ON ANY-STATUS NEXT SENTENCE.

000542

000543 MOVE '****** BILL LEE GOING
BACK-MESSAGES LU62 AREA **'
000544 TO
WORK-TITLE.
000545 *WCL   SNAP TITLE IS WORK-TITLE

000546 *WCL     FROM WS-MULTI-ACCTNO-OUT  TO
WS-FO-MODE-RETURN-GRP
000547 *WCL     ON ANY-STATUS NEXT SENTENCE.



Jim, I tested on IDMSMPGD - I did nor get different
results, just the registers and the titles.

080630 12:59:11 TM011 **** BILL LEE GOING
BACK-ACCOUNTS LU62 AREA **
080630 12:59:11 TM011 MOST RECENT USER MODE
REGISTERS.
080630 12:59:11 TM011 R0 R1 R2
R3 R4
080630 12:59:11 TM011 165FB3BC 165FB3BC 165FC0C0
165FA088 165FB0C0 165
080630 12:59:11 TM011 R8 R9 R10
R11 R12
080630 12:59:11 TM011 00260088 165F2568 15F8BF2C
15F8DDB4 0026A998 002
080630 12:59:11 TM011 END OF SNAP

080630 12:59:11 TM011 **** BILL LEE GOING
BACK-MESSAGES LU62 AREA **
080630 12:59:11 TM011 MOST RECENT USER MODE
REGISTERS.
080630 12:59:11 TM011 R0 R1 R2
R3 R4
080630 12:59:11 TM011 165FB3BC 165FB3BC 165FB390
165FA088 165FB0C0 165
080630 12:59:11 TM011 R8 R9 R10
R11 R12
080630 12:59:11 TM011 165DF93C 165F2568 15F8BF2C
15F8DDB4 0026A998 002


Jim


Jim Rice
jlrice@southernco.com
ph (404) 506-4148
Fax (404) 506- 4870
SO Linc 2988/770.550.2988

This e-mail and any of its attachments may contain proprietary Southern
Company and/or affiliate information that is privileged, confidential,
or protected by copyright belonging to Southern Company and/or its
affiliates. This e-mail is intended solely for the use of the
individual or entity for which it is intended. If you are not the
intended recipient of this e-mail, any dissemination, distribution,
copying, or action taken in relation to the contents of and attachments
to this e-mail is contrary to the rights of Southern Company and/or its
affiliates and is prohibited. If you are not the intended recipient of
this e-mail, please notify the sender immediately by return e-mail and
permanently delete the original and any copy or printout of this e-mail
and any attachments. Thank you.
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: SNAP information for programmer
"All:

When I used to debug DC-COBOL programs a lot, I found the fact that the
SNAP always displays the registers was annoying and too much information
to have on the log. We created a new DC message number (900001/999999)
- and I would use the WRITE LOG MESSAGE ID 999999 PARMS FROM __ TO ___.
I would actually create a (gasp!) READY TRACE by putting the paragraph
name in the first FROM/TO and then the data I wanted to display.

In deference to Linda, I also used the debugger - at times. ;)

Tim Gortner
Sogeti USA
Department of ""Soggy"" Human Services
State of Iowa


----- Original message -----
From: ""Rice, James L. (Jim)"" <JLRICE@SOUTHERNCO.COM>
To: IDMS-L@LISTSERV.IUASSN.COM
Date: Mon, 30 Jun 2008 15:24:07 -0400
Subject: SNAP information for programmer

I have a programmer who is trying to do some debugging of a COBOL
program. He would like to issue a snap to see what is in working
storage at a given point in his program. He has put the SNAP command in
his code, but is only getting the title and the registers. I have
looked at the manual and he seems to be doing everything right. Any
ideas? This 15.3

Here is the code and the results:

000539 *WCL   SNAP TITLE IS WORK-TITLE

000540 *WCL     FROM WS-MARKER   TO END-OF-MY-COMM

000541 *WCL     ON ANY-STATUS NEXT SENTENCE.

000542

000543 MOVE '****** BILL LEE GOING
BACK-MESSAGES LU62 AREA **'
000544 TO
WORK-TITLE.
000545 *WCL   SNAP TITLE IS WORK-TITLE

000546 *WCL     FROM WS-MULTI-ACCTNO-OUT  TO
WS-FO-MODE-RETURN-GRP
000547 *WCL     ON ANY-STATUS NEXT SENTENCE.



Jim, I tested on IDMSMPGD - I did nor get different
results, just the registers and the titles.

080630 12:59:11 TM011 **** BILL LEE GOING
BACK-ACCOUNTS LU62 AREA **
080630 12:59:11 TM011 MOST RECENT USER MODE
REGISTERS.
080630 12:59:11 TM011 R0 R1 R2
R3 R4
080630 12:59:11 TM011 165FB3BC 165FB3BC 165FC0C0
165FA088 165FB0C0 165
080630 12:59:11 TM011 R8 R9 R10
R11 R12
080630 12:59:11 TM011 00260088 165F2568 15F8BF2C
15F8DDB4 0026A998 002
080630 12:59:11 TM011 END OF SNAP

080630 12:59:11 TM011 **** BILL LEE GOING
BACK-MESSAGES LU62 AREA **
080630 12:59:11 TM011 MOST RECENT USER MODE
REGISTERS.
080630 12:59:11 TM011 R0 R1 R2
R3 R4
080630 12:59:11 TM011 165FB3BC 165FB3BC 165FB390
165FA088 165FB0C0 165
080630 12:59:11 TM011 R8 R9 R10
R11 R12
080630 12:59:11 TM011 165DF93C 165F2568 15F8BF2C
15F8DDB4 0026A998 002


Jim


Jim Rice
jlrice@southernco.com
ph (404) 506-4148
Fax (404) 506- 4870
SO Linc 2988/770.550.2988

This e-mail and any of its attachments may contain proprietary Southern
Company and/or affiliate information that is privileged, confidential,
or protected by copyright belonging to Southern Company and/or its
affiliates. This e-mail is intended solely for the use of the
individual or entity for which it is intended. If you are not the
intended recipient of this e-mail, any dissemination, distribution,
copying, or action taken in relation to the contents of and attachments
to this e-mail is contrary to the rights of Southern Company and/or its
affiliates and is prohibited. If you are not the intended recipient of
this e-mail, please notify the sender immediately by return e-mail and
permanently delete the original and any copy or printout of this e-mail
and any attachments. Thank you.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Maintain Index
"I am moving a system owned index to some new page ranges. I usually do
this with the DB Reorg tool but decided to use the Maintain Index
utility, running this in two steps as noted in the manual. I cannot get
it to work using two steps. (the one step Maintain Index works fine to
rebuild indexes). I am sure someone has run the Maintain Index using two
or more steps. The system is 16.1 z/OS.

Here are the steps I have for the utility.

Step 1.

//SYSIDMS DD *
DMCL=Current-DMCL
USERCAT=OFF
/*
//SYSIPT DD *
CONNECT TO SYSTEM;
MAINTAIN INDEX IN SEGMENT seg-name
USING current-ssc NEWSUB new-ssc
STEP IDMSTABX
REBUILD Index-name FROM INDEX


Step 2.

//SYSIDMS DD *
DMCL=new-dmcl (new dmcl renamed to the current dmcl and in different
library as per the documentation)
USERCAT=OFF
/*
//SYSIPT DD *
CONNECT TO SYSTEM;
MAINTAIN INDEX IN SEGMENT seg-name
USING current-ssc NEWSUB new-ssc
FROM SORT3
;

The most recent error is a bind failure.

Thanks in advance,

Will Hathcock
Database Administrator
(719) 495-6177
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Maintain Index
"I am moving a system owned index to some new page ranges. I usually do
this with the DB Reorg tool but decided to use the Maintain Index
utility, running this in two steps as noted in the manual. I cannot get
it to work using two steps. (the one step Maintain Index works fine to
rebuild indexes). I am sure someone has run the Maintain Index using two
or more steps. The system is 16.1 z/OS.

Here are the steps I have for the utility.

Step 1.

//SYSIDMS DD * =20
DMCL=3DCurrent-DMCL =20
USERCAT=3DOFF =20
/* =20
//SYSIPT DD * =20
CONNECT TO SYSTEM; =20
MAINTAIN INDEX IN SEGMENT seg-name =20
USING current-ssc NEWSUB new-ssc =20
STEP IDMSTABX =20
REBUILD Index-name FROM INDEX =20


Step 2.

//SYSIDMS DD * =20
DMCL=3Dnew-dmcl (new dmcl renamed to the current dmcl and in different
library as per the documentation) =20
USERCAT=3DOFF =20
/* =20
//SYSIPT DD * =20
CONNECT TO SYSTEM; =20
MAINTAIN INDEX IN SEGMENT seg-name =20
USING current-ssc NEWSUB new-ssc =20
FROM SORT3 =20
; =20
=20
The most recent error is a bind failure.=20

Thanks in advance,

Will Hathcock
Database Administrator
(719) 495-6177
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Maintain Index
"Will

We do this frequently. We actually use a variation where we do TABX in =
the first jobstep. The next jobstep uses FileAid Batch to modify the =
RELDCTL file to point to the new DMCL name, then the last jobstep starts =
MAINTAIN INDEX at SORT3. We usually specify SORTEXIT REUSE on this =
step.

I have a hunch that you missed specifying the REBUILD index-name FROM =
INDEX in your second step - it is still necessary there.


Either that, or your USERCAT=3DOFF may be your culprit. From the =
manual:

=81 USERCAT=3DON/OFF =81 Specifies whether the user =81
=81 =81 catalog is to be accessed. =
=81
=81 =81 Specify OFF only when =
formatting =81
=81 =81 the user catalog or when the =
=81
=81 =81 DMCL does not have access to =
a =81
=81 =81 user catalog. ON is the =
default.
=20


Jim Ritterbusch Mail:
83 Wooster Heights, GE Capital Solutions
4th Floor 44 Old Ridgebury Rd.
Danbury, CT 06810
T 203.546.4370 F 203.546.4499
D 8*447.4370 E james.ritterbusch@ge.com
http://www.ge.com/capitalsolutions/

Outcomes