We are writing unibasic programs to create extract files for pivotlink
and very new to unidata
environment.
Is there anyway to have two or more active savedlist at any one time
keeping the readnext pointers in sync?
We realize once you execute a second save.list the first one is gone. So
what technique would
we use to save off multiple selectlist. Would a Readlist do the trick?
What would be the most
efficient way to handle this?
In the code below once we execute the second save.list and return to the
first paragraph we have lost SL.HRPER.PLINK our primary driver file.
GET.HR.INFO:
EXECUTE "SELECT HRPER"
EXECUTE "SAVE.LIST SL.HRPER.PLINK"
GETLIST "SL.HRPER.PLINK" SETTING X.CTR THEN
FOR ENTRY = 1 TO X.CTR
READNEXT X.ID THEN
READ r.hrper FROM f.hrper, X.ID THEN
..........
GOSUB GET.LAST.PAY.DATE
NEXT ENTRY
END ELSE
ERR.MSG = "No Records Selected from HRPER"
CRT ERR.MSG
RETURN
END
GET.LAST.PAY.DATE:
EXECUTE "SELECT PAYPRDS"
EXECUTE "SAVE.LIST SL.PAYPRDS.PLINK"
GETLIST "SL.PAYPRDS" SETTING X.MAX.REC THEN
FOR X.CTR1 = 1 TO X.MAX.REC
READNEXT X.PAYPRD.ID THEN
X.PAY.PERIOD.DATE = FIELD(X.PAYPRD.ID, "*", 1,1)
IF X.PAY.PERIOD.DATE > X.OUT.LAST.PAY.DAY THEN
X.OUT.LAST.PAY.DAY = X.PAY.PERIOD.DATE
END
...........
...........
NEXT XCTR.1
END ELSE
ERR.MSG = "No Records Selected from PAYPRDS"
CRT ERR.MSG
RETURN
Thanks Barb
Barbara Riffel-Darter,Programmer/Analyst
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
