- FB146PO ;BL/BL - POST-INSTALL ROUTINE FOR FB*3.5*146 ;26-APR-13
- ;;3.5;Fee Basis;**146**;26-APR-13;Build 57
- ;
- ;Purpose of this routine is to provide a filter for the data entries in file #161.99
- ;
- NEW161(ANAME)
- ;
- I ANAME="C166" Q 1
- Q 0
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFB146PO 251 printed Apr 23, 2025@18:09:15 Page 2
- FB146PO ;BL/BL - POST-INSTALL ROUTINE FOR FB*3.5*146 ;26-APR-13
- +1 ;;3.5;Fee Basis;**146**;26-APR-13;Build 57
- +2 ;
- +3 ;Purpose of this routine is to provide a filter for the data entries in file #161.99
- +4 ;
- NEW161(ANAME) +1 ;
- +2 IF ANAME="C166"
- QUIT 1
- +3 QUIT 0