ca.portal.admin

Re:Maintain Index

Discussion created by ca.portal.admin on Jul 2, 2008
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
new - improved APAR reports
"in the off chance anyone is interested: this version will provide more
user-friendly info (a fmid description rather than just FMID # for each
APAR (but only if you have descriptions assigned to each function sysmod)

step 1

//LISTAPAR EXEC your smpe proc
//SMPLIST DD DSN=&&WORK01,DISP=(,PASS),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=27951),
// SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
SET BOUNDARY(your target lib name).
LIST SYSMODS.

step 2

//APAR4MAT EXEC your culprit proc
//INF DD DSN=&&WORK01,DISP=(OLD,DELETE)
//OFA DD DSN=&&WORK02,DISP=(,PASS),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=100,BLKSIZE=27900),
// SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
IN 121 F PS DD=INF
REC I-LITERAL 012 004
REC I-INSTALL-LIT 022 003
REC I-SYSMOD-TYPE 030 012
REC I-SYSMOD-NAME 002 008
REC I-SYSMOD-DESC 030 064
REC I-SYSMOD-FMID 030 007
REC I-INSTALL-DATE 030 006
REC I-INSTALL-TIME 038 008
IN 64 F MB=DUMMY
REC O-SYSMOD-DESC 001 064
IN 07 F MB=DUMMY
REC X-DATE 001 007
REC X-DATE-3-6 003 004
01OUT 150 D PS DD=OFA
01SORT O-SORT-KEY
010 O-SYSMOD-NAME ' '
010 O-SYSMOD-TYPE ' '
010 O-SYSMOD-FMID ' '
010 O-SYSMOD-JCLIN ' '
010 O-INSTALL-DATE ' '
010 O-INSTALL-TIME ' '
010 O-PUT ' '
010 O-HIPER ' '
010 SUB1 0
010 OK-TO-PRINT 'N'
010 O-SORT-KEY 'X'
01510001 O-SYSMOD-NAME SZ=007
01510009 O-SYSMOD-TYPE SZ=001
01510011 O-SYSMOD-DESC SZ=064
01510076 O-SYSMOD-FMID SZ=007
01510084 O-INSTALL-DATE SZ=006
01510091 O-INSTALL-TIME SZ=008
01510100 O-SYSMOD-JCLIN SZ=001
017 IF EOF NE 010
017 IF OK-TO-PRINT NE 'Y' DROP
017 RELS
017010 IF I-LITERAL NE 'TYPE' 020
017 IF OK-TO-PRINT EQ 'Y' RELS
017 MOVE 'N' TO OK-TO-PRINT
017 MOVE I-SYSMOD-NAME TO O-SYSMOD-NAME
017 IF I-SYSMOD-TYPE NE ('FUNCTION' 'PTF ' 'APAR '
* 'USERMOD ') 015
017 MOVE '1' TO O-SORT-KEY
017 MOVE I-SYSMOD-TYPE TO O-SYSMOD-TYPE
017 IF O-SYSMOD-TYPE = 'F' 012
017 MOVE '2' TO O-SORT-KEY
017012 MOVE 'Y' TO OK-TO-PRINT
017 CALL US45 (' ' O-SYSMOD-DESC 1 64 ' ')
017 MOVE ' ' TO O-SYSMOD-JCLIN
017015 DROP
017020 IF I-LITERAL NE 'DESC' 030
017 IF OK-TO-PRINT NE 'Y' DROP
017 CALL US43 (I-SYSMOD-DESC O-SYSMOD-DESC 64)
017 DROP
017030 IF I-LITERAL NE 'FMID' 040
017 IF OK-TO-PRINT NE 'Y' DROP
017 MOVE ' ' TO O-SYSMOD-FMID
017 IF I-SYSMOD-FMID EQ O-SYSMOD-NAME DROP
017 MOVE I-SYSMOD-FMID TO O-SYSMOD-FMID
017 DROP
017040 IF I-LITERAL NE 'JCLI' 050
017 MOVE 'Y' TO O-SYSMOD-JCLIN
017 DROP
017050 IF I-INSTALL-LIT NE 'INS' DROP
017 MOVE I-INSTALL-DATE TO O-INSTALL-DATE
017 MOVE I-INSTALL-TIME TO O-INSTALL-TIME
017 DROP

step 3

//CULPRIT2 EXEC your culprit proc
//INF DD DSN=&&WORK02,DISP=(OLD,DELETE)
//SYS030 DD DISP=SHR,DSN=output file 1
//SYS031 DD DISP=SHR,DSN=output file 2
//SYSIN DD *
IN 100 F PS DD=INF
REC I-SYSMOD-NAME 001 007
REC I-SYSMOD-TYPE 009 001
REC I-SYSMOD-DESC 011 064
REC I-SYSMOD-FMID 076 007
REC I-INSTALL-DATE 084 006
REC I-DATE-1-2 084 002
REC I-DATE-4-6 087 003
REC I-INSTALL-TIME 091 008
REC I-SYSMOD-JCLIN 100 001
IN 5 F PS MB=DUMMY
REC X-DATE 001 005 2
REC X-DATE-1-2 001 002
REC X-DATE-3-5 003 003
GW0 WS-JDATE 0
GW0 WS-GDATE 0
GW0 HOLD-DATE '******'
GW0 HOLD-TIME 'XXXXXXXX'
GW0 X-FMID.200 'XXXXXXX'
GW0 X-DESC.200 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
GW0 SUB1 0
00OUT 080 D
00SORT NOSORT
00510001 ' '
007 IF I-SYSMOD-TYPE NE 'F' DROP
007 IF I-SYSMOD-DESC EQ ' ' DROP
007 SUB1 + 1 SUB1
007 MOVE I-SYSMOD-NAME TO X-FMID.SUB1
007 MOVE I-SYSMOD-DESC TO X-DESC.SUB1
007 DROP
010 SUB2 0
010 X-SYSMOD-TYPE 'XXXX'
010 X-PRODUCT 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
01OUT 132 D NS(XXXX)
01SORT I-INSTALL-DATE A I-INSTALL-TIME A I-SYSMOD-NAME A
013HUMANA CA-IDMS R16.0 SYSMOD APPLY HISTORY REPORT
01450001 'DATE/TIME'
01460001+'___________________'
01510001 WS-GDATE FM '9999/99/99'
01510012 I-INSTALL-TIME SZ=008
01450021 'NAME'
01460021 '_______'
01510021 I-SYSMOD-NAME SZ=007
01450029 'TYPE'
01460029 '____'
01510029 X-SYSMOD-TYPE SZ=004
01450034 'DESC'
01460034 '________________________________'
01460066 '________________________________'
01510034 I-SYSMOD-DESC SZ=064
01410099 'J'
01420099 'C'
01430099 'L'
01440099 'I'
01450099 'N'
01460099 '_'
01510099 I-SYSMOD-JCLIN SZ=001
01450101 'OWNING PRODUCT'
01460101 '________________'
01510101 X-PRODUCT SZ=032
017 CALL US43 (I-DATE-1-2 X-DATE-1-2 2)
017 CALL US43 (I-DATE-4-6 X-DATE-3-5 3)
017 MOVE X-DATE TO WS-JDATE
017 CALL US15 (WS-JDATE 'P' 'YDD' 'YMD' WS-GDATE)
017 WS-GDATE + 20000000 WS-GDATE
017020 IF I-SYSMOD-TYPE = 'F' 101
017 IF I-SYSMOD-TYPE = 'P' 102
017 IF I-SYSMOD-TYPE = 'A' 103
017 IF I-SYSMOD-TYPE = 'U' 104
017 DROP
017101 MOVE 'FUNC' TO X-SYSMOD-TYPE
017 B 200
017102 MOVE 'PTF ' TO X-SYSMOD-TYPE
017 B 200
017103 MOVE 'APAR' TO X-SYSMOD-TYPE
017 B 200
017104 MOVE 'USER' TO X-SYSMOD-TYPE
017 B 200
017200 MOVE ' ' TO X-PRODUCT
017 IF I-SYSMOD-TYPE = 'F' 300
017 MOVE 0 TO SUB2
017 MOVE '?' TO X-PRODUCT
017201 SUB2 + 1 SUB2
017 IF SUB2 GT 200 300
017 IF X-FMID.SUB2 = 'XXXXXXX' 300
017 IF X-FMID.SUB2 NE I-SYSMOD-FMID 201
017 MOVE X-DESC.SUB2 TO X-PRODUCT
017300 TAKE
020 SUB2 0
020 X-SYSMOD-TYPE 'XXXX'
020 X-PRODUCT 'XXXXXXXXXXXXXXXX'
02OUT 132 D NS(XXXX)
02SORT I-SYSMOD-NAME A
023HUMANA CA-IDMS R16.0 SYSMOD APPLY STATUS REPORT
02470011 'NAME'
02480011 '_______'
02510011 I-SYSMOD-NAME SZ=007
02470020 'DESC'
02480020 '________________________________'
02480052 '________________________________'
02510020 I-SYSMOD-DESC SZ=064
02470086 'OWNING PRODUCT'
02480086 '________________'
02510086 X-PRODUCT SZ=016
02470104 'DATE/TIME'
02480104+'___________________'
02510104 WS-GDATE FM '9999/99/99'
02510115 I-INSTALL-TIME SZ=008
027 CALL US43 (I-DATE-1-2 X-DATE-1-2 2)
027 CALL US43 (I-DATE-4-6 X-DATE-3-5 3)
027 MOVE X-DATE TO WS-JDATE
027 CALL US15 (WS-JDATE 'P' 'YDD' 'YMD' WS-GDATE)
027 IF WS-GDATE LT 690000 010
027 WS-GDATE + 19000000 WS-GDATE
027 B 020
027010 WS-GDATE + 20000000 WS-GDATE
027020 IF I-SYSMOD-TYPE = 'F' DROP
027 IF I-SYSMOD-TYPE = 'P' 102
027 IF I-SYSMOD-TYPE = 'A' 103
027 IF I-SYSMOD-TYPE = 'U' 104
027 DROP
027102 MOVE 'PTF ' TO X-SYSMOD-TYPE
027 B 200
027103 MOVE 'APAR' TO X-SYSMOD-TYPE
027 B 200
027104 MOVE 'USER' TO X-SYSMOD-TYPE
027 B 200
027200 MOVE ' ' TO X-PRODUCT
027 MOVE 0 TO SUB2
027 MOVE '?' TO X-PRODUCT
027201 SUB2 + 1 SUB2
027 IF SUB2 GT 200 300
027 IF X-FMID.SUB2 = 'XXXXXXX' 300
027 IF X-FMID.SUB2 NE I-SYSMOD-FMID 201
027 MOVE X-DESC.SUB2 TO X-PRODUCT
027300 TAKE



Chris Hoelscher
Senior IDMS & DB2 Database Administrator
Humana Inc
502-476-2538
choelscher@humana.com



The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
new - improved APAR reports
"in the off chance anyone is interested: this version will provide more
user-friendly info (a fmid description rather than just FMID # for each
APAR (but only if you have descriptions assigned to each function sysmod)

step 1

//LISTAPAR EXEC your smpe proc
//SMPLIST DD DSN=&&WORK01,DISP=(,PASS),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=27951),
// SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
SET BOUNDARY(your target lib name).
LIST SYSMODS.

step 2

//APAR4MAT EXEC your culprit proc
//INF DD DSN=&&WORK01,DISP=(OLD,DELETE)
//OFA DD DSN=&&WORK02,DISP=(,PASS),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=100,BLKSIZE=27900),
// SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
IN 121 F PS DD=INF
REC I-LITERAL 012 004
REC I-INSTALL-LIT 022 003
REC I-SYSMOD-TYPE 030 012
REC I-SYSMOD-NAME 002 008
REC I-SYSMOD-DESC 030 064
REC I-SYSMOD-FMID 030 007
REC I-INSTALL-DATE 030 006
REC I-INSTALL-TIME 038 008
IN 64 F MB=DUMMY
REC O-SYSMOD-DESC 001 064
IN 07 F MB=DUMMY
REC X-DATE 001 007
REC X-DATE-3-6 003 004
01OUT 150 D PS DD=OFA
01SORT O-SORT-KEY
010 O-SYSMOD-NAME ' '
010 O-SYSMOD-TYPE ' '
010 O-SYSMOD-FMID ' '
010 O-SYSMOD-JCLIN ' '
010 O-INSTALL-DATE ' '
010 O-INSTALL-TIME ' '
010 O-PUT ' '
010 O-HIPER ' '
010 SUB1 0
010 OK-TO-PRINT 'N'
010 O-SORT-KEY 'X'
01510001 O-SYSMOD-NAME SZ=007
01510009 O-SYSMOD-TYPE SZ=001
01510011 O-SYSMOD-DESC SZ=064
01510076 O-SYSMOD-FMID SZ=007
01510084 O-INSTALL-DATE SZ=006
01510091 O-INSTALL-TIME SZ=008
01510100 O-SYSMOD-JCLIN SZ=001
017 IF EOF NE 010
017 IF OK-TO-PRINT NE 'Y' DROP
017 RELS
017010 IF I-LITERAL NE 'TYPE' 020
017 IF OK-TO-PRINT EQ 'Y' RELS
017 MOVE 'N' TO OK-TO-PRINT
017 MOVE I-SYSMOD-NAME TO O-SYSMOD-NAME
017 IF I-SYSMOD-TYPE NE ('FUNCTION' 'PTF ' 'APAR '
* 'USERMOD ') 015
017 MOVE '1' TO O-SORT-KEY
017 MOVE I-SYSMOD-TYPE TO O-SYSMOD-TYPE
017 IF O-SYSMOD-TYPE = 'F' 012
017 MOVE '2' TO O-SORT-KEY
017012 MOVE 'Y' TO OK-TO-PRINT
017 CALL US45 (' ' O-SYSMOD-DESC 1 64 ' ')
017 MOVE ' ' TO O-SYSMOD-JCLIN
017015 DROP
017020 IF I-LITERAL NE 'DESC' 030
017 IF OK-TO-PRINT NE 'Y' DROP
017 CALL US43 (I-SYSMOD-DESC O-SYSMOD-DESC 64)
017 DROP
017030 IF I-LITERAL NE 'FMID' 040
017 IF OK-TO-PRINT NE 'Y' DROP
017 MOVE ' ' TO O-SYSMOD-FMID
017 IF I-SYSMOD-FMID EQ O-SYSMOD-NAME DROP
017 MOVE I-SYSMOD-FMID TO O-SYSMOD-FMID
017 DROP
017040 IF I-LITERAL NE 'JCLI' 050
017 MOVE 'Y' TO O-SYSMOD-JCLIN
017 DROP
017050 IF I-INSTALL-LIT NE 'INS' DROP
017 MOVE I-INSTALL-DATE TO O-INSTALL-DATE
017 MOVE I-INSTALL-TIME TO O-INSTALL-TIME
017 DROP

step 3

//CULPRIT2 EXEC your culprit proc
//INF DD DSN=&&WORK02,DISP=(OLD,DELETE)
//SYS030 DD DISP=SHR,DSN=output file 1
//SYS031 DD DISP=SHR,DSN=output file 2
//SYSIN DD *
IN 100 F PS DD=INF
REC I-SYSMOD-NAME 001 007
REC I-SYSMOD-TYPE 009 001
REC I-SYSMOD-DESC 011 064
REC I-SYSMOD-FMID 076 007
REC I-INSTALL-DATE 084 006
REC I-DATE-1-2 084 002
REC I-DATE-4-6 087 003
REC I-INSTALL-TIME 091 008
REC I-SYSMOD-JCLIN 100 001
IN 5 F PS MB=DUMMY
REC X-DATE 001 005 2
REC X-DATE-1-2 001 002
REC X-DATE-3-5 003 003
GW0 WS-JDATE 0
GW0 WS-GDATE 0
GW0 HOLD-DATE '******'
GW0 HOLD-TIME 'XXXXXXXX'
GW0 X-FMID.200 'XXXXXXX'
GW0 X-DESC.200 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
GW0 SUB1 0
00OUT 080 D
00SORT NOSORT
00510001 ' '
007 IF I-SYSMOD-TYPE NE 'F' DROP
007 IF I-SYSMOD-DESC EQ ' ' DROP
007 SUB1 + 1 SUB1
007 MOVE I-SYSMOD-NAME TO X-FMID.SUB1
007 MOVE I-SYSMOD-DESC TO X-DESC.SUB1
007 DROP
010 SUB2 0
010 X-SYSMOD-TYPE 'XXXX'
010 X-PRODUCT 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
01OUT 132 D NS(XXXX)
01SORT I-INSTALL-DATE A I-INSTALL-TIME A I-SYSMOD-NAME A
013HUMANA CA-IDMS R16.0 SYSMOD APPLY HISTORY REPORT
01450001 'DATE/TIME'
01460001+'___________________'
01510001 WS-GDATE FM '9999/99/99'
01510012 I-INSTALL-TIME SZ=008
01450021 'NAME'
01460021 '_______'
01510021 I-SYSMOD-NAME SZ=007
01450029 'TYPE'
01460029 '____'
01510029 X-SYSMOD-TYPE SZ=004
01450034 'DESC'
01460034 '________________________________'
01460066 '________________________________'
01510034 I-SYSMOD-DESC SZ=064
01410099 'J'
01420099 'C'
01430099 'L'
01440099 'I'
01450099 'N'
01460099 '_'
01510099 I-SYSMOD-JCLIN SZ=001
01450101 'OWNING PRODUCT'
01460101 '________________'
01510101 X-PRODUCT SZ=032
017 CALL US43 (I-DATE-1-2 X-DATE-1-2 2)
017 CALL US43 (I-DATE-4-6 X-DATE-3-5 3)
017 MOVE X-DATE TO WS-JDATE
017 CALL US15 (WS-JDATE 'P' 'YDD' 'YMD' WS-GDATE)
017 WS-GDATE + 20000000 WS-GDATE
017020 IF I-SYSMOD-TYPE = 'F' 101
017 IF I-SYSMOD-TYPE = 'P' 102
017 IF I-SYSMOD-TYPE = 'A' 103
017 IF I-SYSMOD-TYPE = 'U' 104
017 DROP
017101 MOVE 'FUNC' TO X-SYSMOD-TYPE
017 B 200
017102 MOVE 'PTF ' TO X-SYSMOD-TYPE
017 B 200
017103 MOVE 'APAR' TO X-SYSMOD-TYPE
017 B 200
017104 MOVE 'USER' TO X-SYSMOD-TYPE
017 B 200
017200 MOVE ' ' TO X-PRODUCT
017 IF I-SYSMOD-TYPE = 'F' 300
017 MOVE 0 TO SUB2
017 MOVE '?' TO X-PRODUCT
017201 SUB2 + 1 SUB2
017 IF SUB2 GT 200 300
017 IF X-FMID.SUB2 = 'XXXXXXX' 300
017 IF X-FMID.SUB2 NE I-SYSMOD-FMID 201
017 MOVE X-DESC.SUB2 TO X-PRODUCT
017300 TAKE
020 SUB2 0
020 X-SYSMOD-TYPE 'XXXX'
020 X-PRODUCT 'XXXXXXXXXXXXXXXX'
02OUT 132 D NS(XXXX)
02SORT I-SYSMOD-NAME A
023HUMANA CA-IDMS R16.0 SYSMOD APPLY STATUS REPORT
02470011 'NAME'
02480011 '_______'
02510011 I-SYSMOD-NAME SZ=007
02470020 'DESC'
02480020 '________________________________'
02480052 '________________________________'
02510020 I-SYSMOD-DESC SZ=064
02470086 'OWNING PRODUCT'
02480086 '________________'
02510086 X-PRODUCT SZ=016
02470104 'DATE/TIME'
02480104+'___________________'
02510104 WS-GDATE FM '9999/99/99'
02510115 I-INSTALL-TIME SZ=008
027 CALL US43 (I-DATE-1-2 X-DATE-1-2 2)
027 CALL US43 (I-DATE-4-6 X-DATE-3-5 3)
027 MOVE X-DATE TO WS-JDATE
027 CALL US15 (WS-JDATE 'P' 'YDD' 'YMD' WS-GDATE)
027 IF WS-GDATE LT 690000 010
027 WS-GDATE + 19000000 WS-GDATE
027 B 020
027010 WS-GDATE + 20000000 WS-GDATE
027020 IF I-SYSMOD-TYPE = 'F' DROP
027 IF I-SYSMOD-TYPE = 'P' 102
027 IF I-SYSMOD-TYPE = 'A' 103
027 IF I-SYSMOD-TYPE = 'U' 104
027 DROP
027102 MOVE 'PTF ' TO X-SYSMOD-TYPE
027 B 200
027103 MOVE 'APAR' TO X-SYSMOD-TYPE
027 B 200
027104 MOVE 'USER' TO X-SYSMOD-TYPE
027 B 200
027200 MOVE ' ' TO X-PRODUCT
027 MOVE 0 TO SUB2
027 MOVE '?' TO X-PRODUCT
027201 SUB2 + 1 SUB2
027 IF SUB2 GT 200 300
027 IF X-FMID.SUB2 = 'XXXXXXX' 300
027 IF X-FMID.SUB2 NE I-SYSMOD-FMID 201
027 MOVE X-DESC.SUB2 TO X-PRODUCT
027300 TAKE



Chris Hoelscher
Senior IDMS & DB2 Database Administrator
Humana Inc
502-476-2538
choelscher@humana.com



The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Restructure of partial packed (COMP-3) field
"I am planning to change a comp-3 field defined as 9v99 (2 bytes) to 99v99=
9 (3 bytes). I would like to add 1 byte before the field and then after t=
he restructure multiply the original contents of the field by 10 to align=
the data for the additional decimal place.=20

For the original field defintion I am thinking it should look something l=
ike:

IDMSRSTT FIELD=3D(PL2'0',nn,nn,NEW) where nn is the length of the field a=
nd offset into the record. =20

The content of the new byte needs to be initialized to zero and defined a=
s Hex 00. I was thinking this individual byte cannot be defined as COMP-3=
=2E=20

How should this new byte be specified in the IDMSRSTT FIELD statement?

TIA

Tim Williams
DBA, Alberta Justice

This email and any files transmitted with it are confidential and intende=
d solely for the use of the individual or entity to whom they are address=
ed. If you have received this email in error please notify the system man=
ager. This message contains confidential information and is intended only=
for the individual named. If you are not the named addressee you should =
not disseminate, distribute or copy this e-mail.
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Restructure of partial packed (COMP-3) field
"I am planning to change a comp-3 field defined as 9v99 (2 bytes) to 99v999 (3 bytes). I would like to add 1 byte before the field and then after the restructure multiply the original contents of the field by 10 to align the data for the additional decimal place.

For the original field defintion I am thinking it should look something like:

IDMSRSTT FIELD=(PL2'0',nn,nn,NEW) where nn is the length of the field and offset into the record.

The content of the new byte needs to be initialized to zero and defined as Hex 00. I was thinking this individual byte cannot be defined as COMP-3.

How should this new byte be specified in the IDMSRSTT FIELD statement?

TIA

Tim Williams
DBA, Alberta Justice

This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Restructure of partial packed (COMP-3) field
"Wouldn't it be (XL1'0'), a 1-byte field containing x'00'?
=20

Outcomes