Re: Routine to set file level id's

Just an offhand, casual, observation...

LVLCHK(*NO)

Seems to me that if what you want is to disrupt the format level checking,
and unless you actually want errors, that turning it off would do the trick.

Of course, I could be wrong....

===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified AS/400 Professional System Administrator
 -- IBM Certified AS/400 Professional Network Administrator

"The sum of all human knowledge is a fixed constant.
    It's the population that keeps growing!"

-----Original Message-----
From: David Gibbs <dgibbs@mks.com>
To: 'MI Mailing List' <MI400@midrange.com>
Date: Wednesday, January 26, 2000 10:34 AM
Subject: Routine to set file level id's


>Folks:
>
>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.
>
>Thanks!
>
>david
>
>
>---------------------------------------------------------------------------
-
>---------------------------
>         ENTRY * (*ENTRY) EXT;
>
>/* -----------------------------------------------------------------*/
>/* PARAMETERS PASSED IN TO PROGRAM                                  */
>/* -----------------------------------------------------------------*/
>DCL SPCPTR   P_FIL_PTR    PARM;        /* FILE NAME                 */
>DCL SPCPTR   P_LIB_PTR    PARM;        /* *LIBL, QTEMP              */
>                                       /*   *LIBL & QTEMP NOT YET   */
>                                       /*   SUPPORTED               */
>DCL SPCPTR   P_FILEID_PTR PARM;        /* MEMBER NAME               */
>DCL SPCPTR   P_FUNCT_PTR  PARM;        /* FUNCTION '*CHG', '*RTV'   */
>DCL SPCPTR   P_RETURN_PTR PARM;
>
>DCL OL       *ENTRY (P_FIL_PTR,P_LIB_PTR,P_FILEID_PTR,
>                     P_FUNCT_PTR,P_RETURN_PTR) EXT PARM;
>
>DCL DD       P_FIL        CHAR(10)    BAS(P_FIL_PTR);
>DCL DD       P_LIB        CHAR(10)    BAS(P_LIB_PTR);
>DCL DD       P_FILEID     CHAR(13)    BAS(P_FILEID_PTR);
>DCL DD       P_FUNCT      CHAR(10)    BAS(P_FUNCT_PTR);
>DCL DD       P_RETURN     CHAR(10)    BAS(P_RETURN_PTR);
>
>/* -----------------------------------------------------------------*/
>/* PROCESS COMMUNICATION OBJECT (PCO)                               */
>/* -----------------------------------------------------------------*/
>DCL SYSPTR   QTEMP        BASPCO POS(65);
>/* -----------------------------------------------------------------*/
>/* CONSTANTS                                                        */
>/* -----------------------------------------------------------------*/
>DCL DD       *FILE        CHAR(2)  INIT(X'1901');
>DCL DD       *LIB         CHAR(2)  INIT(X'0401');
>
>/*------------------------------------------------------------------*/
>/* WORK VARIABLES                                                   */
>/*------------------------------------------------------------------*/
>
>
>/* RESOLVE TO SYSTEM POINTER - OPERAND FOR RSLVSP                   */
>DCL DD       R          CHAR(34);
>DCL DD       RTYP       CHAR(2)  DEF(R) POS(1);
>DCL DD       ROBJ       CHAR(30) DEF(R) POS(3);
>DCL DD       RAUT       CHAR(2)  DEF(R) POS(33) INIT(X'0800');
>
>/* FILE INFORMATION                                                 */
>DCL DD       FI         CHAR(74) BAS(*) BDRY(16);
>DCL DD       FI_FILEID  CHAR(13) DEF(FI)  POS(62);
>
>/* LIBRARY INFO - POINTERS                                         */
>DCL DD       FI         CHAR(74) BAS(*) BDRY(16);
>DCL DD       FI_FILEID  CHAR(13) DEF(FI)  POS(62);
>
>/* LIBRARY INFO - POINTERS                                         */
>DCL SYSPTR   LIB_PTR;
>DCL SYSPTR   SYSFILE_PTR;
>DCL SPCPTR   FILE_PTR;
>
>/*------------------------------------------------------------------*/
>/* RESOLVE TO THE LIBRARY (CONTEXT)                                 */
>/*------------------------------------------------------------------*/
>         CPYBLAP    ROBJ,P_LIB,' ';
>         CPYBLAP    RTYP,*LIB,' ';
>         RSLVSP     LIB_PTR,R,*,*;
>
>/*------------------------------------------------------------------*/
>/* RESOLVE TO THE FILE INFORMATION                                  */
>/*------------------------------------------------------------------*/
>         CPYBLAP    ROBJ,P_FIL,' ';
>         CPYBLA     RTYP,*FILE;
>         RSLVSP     SYSFILE_PTR,R,LIB_PTR,*;
>
>/*------------------------------------------------------------------*/
>/* POINT TO ASSOCIATED MEMBER SPACE                                 */
>/*------------------------------------------------------------------*/
>         SETSPPFP   FILE_PTR,SYSFILE_PTR;
>
>         BRK 'MH';
>/* -----------------------------------------------------------------*/
>/* UPDATE FILE INFORMATION                                          */
>/* -----------------------------------------------------------------*/
>
>/* DETERMINE IF THE FILE ID SHOULD BE CHANGED OR RETURNED           */
>         CMPBLAP(B) P_FUNCT,'*RTV',' '/EQ(RETRIEVE);
>
>/* CHANGE THE FILE IDENTIFIER IF VALUE IS NOT '*SAME'               */
>         CMPBLAP(B) P_FILEID,'*SAME',' '/EQ(ENDIF01);
>         CPYBLA     FILE_PTR->FI_FILEID,P_FILEID;
>
>RETRIEVE:
>
>/* RETRIEVE THE FILE IDENTIFIER                                     */
>         CPYBLA     P_FILEID,FILE_PTR->FI_FILEID;
>ENDIF01:
>         NOOP;
>PEND;
>---------------------------------------------------------------------------
-
>---------------------------
>--
>
>David Gibbs
>Sr. Software Engineer
>Mortice Kern Systems US, Inc.
>2500 S. Highland Ave., Suite 200
>Lombard, IL  60148
>
>phone: (630) 495-2108 x5004
>http://www.mks.com <http://www.mks.com/>
>mailto:dgibbs@mks.com <mailto:dgibbs@mks.com>
>
>
>Opinions expressed are strictly my own and do
>not necessarily reflect those of my employer.
>
>
>
>+---
>| 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
>+---
>

+---
| 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
+---