We need a restructure before doing an unload/reload to enlarge a Calc Key. =
The key fields are getting a 2 digit year inserted in front of them that w=
ill become part of the new Calc key. The restructure will insert a new fie=
ld with a value of 00 but it would be nice to copy a year-field found in ea=
ch of the record instances instead.
*
* The generated RSTT;
*
IDMSRSTT BUFSIZE=3D(1500,1500) OLD WRFOTO
IDMSRSTT RECNAME=3DWRHEDR
IDMSRSTT SETPTR=3DALL
IDMSRSTT FIELD=3D(2CL1'0',1,2,NEW) INIT WRHEDR-WARRANT-YR <- the new field,=
initialized to 00
IDMSRSTT FIELD=3D(1,3,8) COPY WRHEDR-WARRANT-NO
IDMSRSTT FIELD=3D(9,11,9) COPY WRHEDR-EIEMPL-SSAN
IDMSRSTT FIELD=3D(18,20,9) COPY WRHEDR-HRCSTC-CODE
IDMSRSTT FIELD=3D(27,29,15) COPY WRHEDR-LNAME
IDMSRSTT FIELD=3D(42,44,15) COPY WRHEDR-FNAME
IDMSRSTT FIELD=3D(57,59,1) COPY WRHEDR-MNAME
IDMSRSTT FIELD=3D(58,60,5) COPY WRHEDR-NAME-SFX
IDMSRSTT FIELD=3D(63,65,24) COPY WRHEDR-PAYNAME
IDMSRSTT FIELD=3D(87,89,3) COPY WRHEDR-HRPSTN-AGENCY
IDMSRSTT FIELD=3D(90,92,3) COPY WRHEDR-HRPSTN-APPROP
IDMSRSTT FIELD=3D(93,95,4) COPY WRHEDR-HRPSTN-ORG
IDMSRSTT FIELD=3D(97,99,5) COPY WRHEDR-HRPSTN-HRCLSC
IDMSRSTT FIELD=3D(102,104,3) COPY WRHEDR-HRPSTN-NUMBER
IDMSRSTT FIELD=3D(105,107,1) COPY WRHEDR-HRPSTN-REPLACE
IDMSRSTT FIELD=3D(106,108,2) COPY WRHEDR-WARR-CC
IDMSRSTT FIELD=3D(108,110,2) COPY WRHEDR-WARR-YY
...
*
* The possibly clever RSTT
*
IDMSRSTT BUFSIZE=3D(1500,1500) OLD WRFOTO
IDMSRSTT RECNAME=3DWRHEDR
IDMSRSTT SETPTR=3DALL
IDMSRSTT FIELD=3D(108,1,2) COPY WRHEDR-WARR-YY <- the new field, po=
pulated with WRHEDR-WARR-YY
IDMSRSTT FIELD=3D(1,3,8) COPY WRHEDR-WARRANT-NO
IDMSRSTT FIELD=3D(9,11,9) COPY WRHEDR-EIEMPL-SSAN
IDMSRSTT FIELD=3D(18,20,9) COPY WRHEDR-HRCSTC-CODE
IDMSRSTT FIELD=3D(27,29,15) COPY WRHEDR-LNAME
IDMSRSTT FIELD=3D(42,44,15) COPY WRHEDR-FNAME
IDMSRSTT FIELD=3D(57,59,1) COPY WRHEDR-MNAME
IDMSRSTT FIELD=3D(58,60,5) COPY WRHEDR-NAME-SFX
IDMSRSTT FIELD=3D(63,65,24) COPY WRHEDR-PAYNAME
IDMSRSTT FIELD=3D(87,89,3) COPY WRHEDR-HRPSTN-AGENCY
IDMSRSTT FIELD=3D(90,92,3) COPY WRHEDR-HRPSTN-APPROP
IDMSRSTT FIELD=3D(93,95,4) COPY WRHEDR-HRPSTN-ORG
IDMSRSTT FIELD=3D(97,99,5) COPY WRHEDR-HRPSTN-HRCLSC
IDMSRSTT FIELD=3D(102,104,3) COPY WRHEDR-HRPSTN-NUMBER
IDMSRSTT FIELD=3D(105,107,1) COPY WRHEDR-HRPSTN-REPLACE
IDMSRSTT FIELD=3D(106,108,2) COPY WRHEDR-WARR-CC
IDMSRSTT FIELD=3D(108,110,2) COPY WRHEDR-WARR-YY
...
"
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: I think this RSTT will work
"
I have done this in the past and in my experience, the best approach would be a combination:
IDMSRSTT BUFSIZE=(1500,1500) OLD WRFOTO
IDMSRSTT RECNAME=WRHEDR
IDMSRSTT SETPTR=ALL
IDMSRSTT FIELD=(2CL1'0',1,2,NEW) INIT WRHEDR-WARRANT-YR <- create the new fld & init to 00
IDMSRSTT FIELD=(108,1,2) COPY WRHEDR-WARR-YY <- populate the new fld WRHEDR-WARR-YY
IDMSRSTT FIELD=(1,3,8) COPY WRHEDR-WARRANT-NO
IDMSRSTT FIELD=(9,11,9) COPY WRHEDR-EIEMPL-SSAN
IDMSRSTT FIELD=(18,20,9) COPY WRHEDR-HRCSTC-CODE
IDMSRSTT FIELD=(27,29,15) COPY WRHEDR-LNAME
IDMSRSTT FIELD=(42,44,15) COPY WRHEDR-FNAME
IDMSRSTT FIELD=(57,59,1) COPY WRHEDR-MNAME
IDMSRSTT FIELD=(58,60,5) COPY WRHEDR-NAME-SFX
IDMSRSTT FIELD=(63,65,24) COPY WRHEDR-PAYNAME
IDMSRSTT FIELD=(87,89,3) COPY WRHEDR-HRPSTN-AGENCY
IDMSRSTT FIELD=(90,92,3) COPY WRHEDR-HRPSTN-APPROP
IDMSRSTT FIELD=(93,95,4) COPY WRHEDR-HRPSTN-ORG
IDMSRSTT FIELD=(97,99,5) COPY WRHEDR-HRPSTN-HRCLSC
IDMSRSTT FIELD=(102,104,3) COPY WRHEDR-HRPSTN-NUMBER
IDMSRSTT FIELD=(105,107,1) COPY WRHEDR-HRPSTN-REPLACE
IDMSRSTT FIELD=(106,108,2) COPY WRHEDR-WARR-CC
IDMSRSTT FIELD=(108,110,2) COPY WRHEDR-WARR-YY
...
Regards,
...................Al
Alan R. Dicken
Citigroup Enterprise Systems -
Data Base Administration
(718) 248-3458