RE: CVTQHST2 TAATOOL...

["Graap, Ken" <keg@xxxxxxxxxxxxxxxxxx>]

Arlene - 

This seems to have fixed my problem.... thanx!

One note though ... The source member I had to change was TAAHSTEC5 not
TAAHSTEC7...

Kenneth

****************************************
Kenneth E. Graap
IBM Certified Specialist
AS/400 Professional
Network Administrator
NW Natural (Gas Services)
keg@nwnatural.com
Phone: 503-226-4211 x5537
FAX:    603-849-0591
****************************************


-----Original Message-----
From: Arlene M Soderlund [mailto:Arlene_M_Soderlund/NFCNA.COM@nfcna.com]
Sent: Tuesday, January 04, 2000 1:34 PM
To: MIDRANGE-L@midrange.com
Subject: Re: CVTQHST2 TAATOOL...



"Graap, Ken" <keg@exchange.gasco.com> on 01/04/2000 12:17:58 PM

Please respond to MIDRANGE-L@midrange.com

To:   "'Midrange'" <midrange-l@midrange.com>
cc:    (bcc: Arlene M Soderlund/NFCNA.COM)
Subject:  CVTQHST2 TAATOOL...



I've noticed that the TAATOOL CVTQHST2 has stopped working as of 1/2/00 ....

Ken

If the source names are the same here is what I did to make it work

Change this CL Source and compile to appropriate  library

TAAHSTEC7   CLP         Convert QHST2 - Sub pgm called by TAAHSTEC

READ:       RCVF       /* Read a record */
            MONMSG     MSGID(CPF0864) EXEC(GOTO EOF)
            CHGVAR     &CURLOG &ODOBNM
                       /* If &LSTLOG is blank, no records exist   */
                       /*   in QHST2, convert each QHST file      */
            IF         (&LSTLOG *EQ '  ') GOTO CVTQHST
                       /* If the cur log ID is LT the last LOGID  */
                       /*   in the data base file, bypass as      */
                       /*   the log file has already been         */
                       /*   converted                             */
            IF         (&ODOBNM *LT &LSTLOG) GOTO READ


ADD this line to not Rewrite QHST99---- etc histories


            IF         COND(&ODOBNM *GT 'QHST990000') THEN(GOTO +
                         CMDLBL(READ))




go to your last record in File Qhst2

copy  or create a false (fake) record with value this value in with the Qhst
Log
Id field - "QHST00000A" in QHLGID

Run CVTQHST2

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---