The routine returns your below RC which it calls "success" as a zero if either it cannot open the GLOBAL.CATDIR file, or if it cannot read the catalog name passed in that file.
The STATUS() (which I didn't even know could be assigned) is assigned to the ASCII value (using SEQ) of the 52nd character of the first line of the record it does successfully read. What is the significant of the 52nd character ? What would one find there? -----Original Message----- From: Hona, David <david.h...@cba.com.au> To: U2 Users List <u2-users@listserver.u2ug.org> Sent: Mon, Jan 27, 2014 7:50 pm Subject: Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine There is the !EXIST subroutine. It's a legacy Prime INFO subroutine - created for legacy code that need it. The source code is in UV APP.PROGS and just reads GLOBAL.CATDIR and also sets STATUS() with a return code too. CATALOGED.NAME = '*MYGLOBALSUB' call !EXIST(CATALOGED.NAME, RC) crt CATALOGED.NAME:" = ":(if RC then "exists" else "NOT found") crt CATALOGED.NAME:" STATUS() = ":STATUS():" = ":(if STATUS() then "exists" else "NOT found") -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Perry Taylor Sent: Tuesday, 28 January 2014 4:06 AM To: U2-Users List Subject: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine Does anyone know of a good method in UniVerse BASIC to be able to verify if a subroutine is globally cataloged? Thanks. Perry Taylor Senior MV Architect Office (877) 494-7633 ext. 4392 Direct (502) 779-4392 ZirMed 888 West Market Street, Suite 400 Louisville, KY 40202 www.zirmed.com<http://www.zirmed.com/> ************** IMPORTANT MESSAGE ***************************** This e-mail message is intended only for the addressee(s) and contains information which may be confidential. If you are not the intended recipient please advise the sender by return email, do not use or disclose the contents, and delete the message and any attachments from your system. Unless specifically indicated, this email does not constitute formal advice or commitment by the sender or the Commonwealth Bank of Australia (ABN 48 123 123 124) or its subsidiaries. We can be contacted through our web site: commbank.com.au. If you no longer wish to receive commercial electronic messages from us, please reply to this e-mail by typing Unsubscribe in the subject line. ************************************************************** _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
