The addresses of FATMEN banks obtained from the FATMEN RZ file, e.g. using the routines FMGET, FMGETK are stored in a link area by the FATMEN software. However, only the most recent bank address is saved - these routines will DROP any previous bank upon entry. Should you wish to retain the addresses of multiple banks, the following method may be used.
Example of using a link area
COMMON /USRLNK/LUSRK1,LBANKS,LUSRLS
DIMENSION LBANKS(NBANKS)
CHARACTER*255 GENAM(NBANKS)
PARAMETER (LKEYFA=10)
DIMENSION KEYS(LKEYFA)
+CDE,FATBANK.
*
CALL MZLINK (IXSTOR, '/USRLNK/', LUSRK1, LUSRLS, LUSRK1)
*
DO 10 I=1,NBANKS
CALL FMGET(GENAM(I)(1:LENOCC(GENAM(I))),LBANK,KEYS,IRC)
CALL ZSHUNT(IXSTOR,LBANK,LBANKS(I),1,0)
*
* FMGET will DROP any bank at LTDSFA - including the one
* we just got!
*
LTDSFA = 0
10 CONTINUE