Sorry, Michael -- I have been using AIF's for quite a long time now and can  
tell you that they cannot be called by Cobol. I am using Pascal iX to use  
them.
 
Cobol is looking at the SYSINTR.PUB.SYS file, the AIF's look  in the 
AIFINTR.PUB.SYS file. File equations won't do it for you  either. 
 
I had no knowledge of Pascal when I started using AIF's but I know a little  
about it now. I had a lot of help from folks on the HP3000-L (you know who you 
 are).
 
If you can't get a Pascal or "C" compiler on your box then you will find it  
almost impossible
to use AIF's. Cobol won't do it for you, I'm afraid.
 
Of course, if you want to see some sample Pascal AIF code I've written then  
send me an email and I'll send some onto you via return email.
 
 
Brian Donaldson.
 
 
 
 
<<Quick question for all M.P.E. Experts,

I don't have a C/iX  compiler, nor do I have a Pascal Compiler, only
COBOL. 
I know that making  calls to AIF routines from COBOL is NOT supported by
HP. 
Still no matter  what the language or the OS, it all boils down to a
bunch of 1's and 0's  right!

Questionable Compile message:

PAGE 0001  COBOL II/iX  HP31500A.04.21  [85] Copyright Hewlett-Packard
CO. 1987
LINE  #   SEQ # COL ERROR  SEV             TEXT
------------------------------------------------------------------------------
00102   009500  80  371  Q  INTRINSIC AIFCHANGELOGON NOT FOUND  IN
INTRINSIC  FILE.

NO RUN-TIME ERRORS

GETPRIVMODE   *>  C O N D I T I O N - C O D E : CCE
AIF-error-Stat1:  +0000
AIF-error-Stat2: +0000
AIF-Overall-Stat1:  +0000
AIF-Overall-Stat2: +0000

Before the AIF call I call HPCICOMMAND  "SHOWME", and again after the
AIF call, still same login.

So, my  question: Does anyone know how to make the following call  to
AIFCHANGELOGON  work using COBOL?

01   AIF-overall-status.
05  AIF-Overall-Stat1      Pic S9(4) Comp Value  0.
05  AIF-Overall-Stat2      Pic S9(4) Comp Value  0.
01   AIF-logon-cmd              Pic x(128) Value Spaces.
01   AIF-logon-desc             Pic x Value " ".
01   AIF-options                Pic S9(9) Comp Value 0.
01   AIF-error-status.
05  AIF-error-Stat1      Pic S9(4) Comp Value  0.
05 AIF-error-Stat2       Pic S9(4) Comp Value 0.
01   AIF-user-id                Pic S9(9) Comp Value  0.


***************************************
Initialize AIF-error-status  AIF-overall-status
AIF-options       AIF-logon-cmd
AIF-logon-desc   AIF-user-id.
String  "Michael,MGR.VISTA" %15 %0
Delimited by size  into AIF-logon-cmd.
Move %277 tO  AIF-options.
Call Intrinsic "AIFCHANGELOGON"  Using
AIF-overall-status AIF-logon-cmd  AIF-logon-desc
AIF-options AIF-error-status,  AIF-user-id.
**************************************

Thanks in  advance,


--
Michael Anderson>>
 
 
 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *