Is table relationship data available after performing a COBOL find?
For example, if I do an 840-FIND-EMPSET1, is there a way to retrieve data from a related table (i.e PAEMPLOYEE) without having to do an 840-FIND-PAESET1? Something like EMP-PAEMPLOYEE-PEM-LOCAT-CODE
I don't think this is possible, but I'd be very happy to be wrong.
Thanks!
Kelly
MOVE ZZVACA-COMPANY TO DB-COMPANY MOVE ZZVACA-EMPLOYEE TO DB-EMPLOYEE MOVE ZZVACA-FR-DATE TO DB-PER-END-DATE INITIALIZE ZZVACA-LAST-PPE-PROC-DATE PERFORM 850-FIND-NLT-PRTSET3 IF (PRTIME-FOUND) PERFORM UNTIL (PRTIME-NOTFOUND) OR (PRT-COMPANY NOT = ZZVACA-COMPANY) OR (PRT-EMPLOYEE NOT = ZZVACA-EMPLOYEE) OR ((ZZVACA-TO-DATE-NBR NOT = ZEROES) AND (PRT-PER-END-DATE > ZZVACA-TO-DATE-NBR)) RFC 1025329 - 12/11/2014 - Kelly Meade Get the deduction cycle and skip if > 7 in order to skip special payments MOVE PRT-COMPANY TO DB-COMPANY MOVE PRT-EMPLOYEE TO DB-EMPLOYEE MOVE PRT-CHECK-ID TO DB-CHECK-ID PERFORM 840-FIND-PYMSET1 IF (PRT-PER-END-DATE > ZZVACA-LAST-PPE-PROC-DATE) AND (PYM-DED-CYCLE-NBR < 7) MOVE PRT-PER-END-DATE TO ZZVACA-LAST-PPE-PROC-DATE END-IF PERFORM 860-FIND-NEXT-PRTSET3 END-PERFORM END-IF