• Subject: RE: Routine to set file level id's
  • From: Leif Svalgaard <l.svalgaard@xxxxxxxxxxxxx>
  • Date: Wed, 26 Jan 2000 10:16:28 -0600

> I've been assigned the task of find an API or C routine that replaces a MI
> program we currently use to set the file level id for PF's & LF's.
>  
> We want to replace the MI routine because it won't run on a system at
> level
> 40 security.
>  
> Here's the current routine ... I have absolutely NO idea what it's
> going...
> if someone can point me to an API or C routine that can do the same thing,
> it would be greatly appreciated.
>  
> /* FILE INFORMATION                                                 */ 
> DCL DD       FI         CHAR(74) BAS(*) BDRY(16);                      
> DCL DD       FI_FILEID  CHAR(13) DEF(FI)  POS(62);                     
>                                                                        
        [Leif Svalgaard]  1st: it doesn't compile because of the following
DUPLICATE declaration:
> /* LIBRARY INFO - POINTERS                                         */  
> DCL DD       FI         CHAR(74) BAS(*) BDRY(16);                      
> DCL DD       FI_FILEID  CHAR(13) DEF(FI)  POS(62);                     
        [Leif Svalgaard]  Changing the 'FI's on the second dcl to 'LI' (or
just removing them), 
        fixes that.

> /*------------------------------------------------------------------*/
> /* POINT TO ASSOCIATED MEMBER SPACE                                 */
> /*------------------------------------------------------------------*/
>          SETSPPFP   FILE_PTR,SYSFILE_PTR;                             
        [Leif Svalgaard]  This one is your problem. I don't know if there is
an API around that,
        but there are (secret, sinister, and dangerous) ways to accomplish
the same. I'm
        not sure you want to go that route...

>                                                                        
> 
+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.