firstname.lastname@example.org (James W Kilgore) on 10/24/99 10:17:27 AM Please respond to MIDRANGE-L@midrange.com To: MIDRANGE-L@midrange.com cc: (bcc: Arlene M Soderlund/NFCNA.COM) Subject: Re: status of last chain to file Max, We also use the same indicator for all chains, so we created a field for each file to store the CHAIN results. So after your CHAIN do a move of *in90 to a single character field and you can test that anywhere else in your program. > > Hi, > > I have a program that has 10 files in it. All chain's use > indicator 90 > in the no record indicator. So how can i find out if a file i > am going > to update had the record found on the last chain operation? > Thanks for any information on this. > > Max > Use the INFDS for the file ! FCT100M IF E K DISK KINFDS SYSCON I* ISYSCON DS I* I* CT100M STATUS DATA STRUCTURE I* I *STATUS CONSTS C Z-ADD0 FOUND 50 C Z-ADD12 NOTFND 50 C* C* RETRIEVE COMPANY NAME C* C 'COMNAM' CHAINCT100M 4140 C C CONSTS IFEQ FOUND ..... Of course other statuses like record lock must be added to defined fields. With only 99 indicators this is the way to go. +--- | 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: email@example.com +---
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.