Re: QGPL/QFORUM

["Steve McKay" <steve.mckay@xxxxxxxxxxx>]

There used to be an IBM "bulletin board" called Forum/400 that ran on a box 
in Rochester.  You connected to it via ECS - I'm guessing that's what you're 
seeing . . .

HTH,

Steve

<rob@xxxxxxxxx> wrote in message 
news:mailman.585.1209569782.26483.midrange-l@xxxxxxxxxxxxxxx
> Anyone know what program QGPL/QFORUM is?
>
> Creation information:
>  Creation date/time . . . . . . . . . :   05/03/97  01:29:39
>  Created by user  . . . . . . . . . . :   QSYS
>  System created on  . . . . . . . . . :   our_i
>  Object domain  . . . . . . . . . . . :   *USER
>
> Type of program  . . . . . . . . . . . . . . . . :   OPM
> Source file  . . . . . . . . . . . . . . . . . . :   QCLSRC
>  Library  . . . . . . . . . . . . . . . . . . . :     QACCESSDEV
> Source member  . . . . . . . . . . . . . . . . . :   QFORUM
>
> Don't see too many programs with no observability, but allow retrieve cl
> source is ok.  Just noticed that.
>
>     SNDPGMMSG MSG('Communications object required for access to -
> AS/400 FORUM not found.  Object Q1PLIN, type *LIND not found.') -
> TOPGMQ(*EXT)
> ...
>     CRTMODD MODD(SHARE001) MAXSSN(8) MAXCNV(8) LCLCTLSSN(4) -
> PREESTSSN(0) INPACING(2) OUTPACING(2) MAXLENRU(*CALC) TEXT('AS/400 -
> FORUM access to SHARE400 system') COS(#CONNECT)
> ...
>
> Oh my, this is OLD!  I haven't used that forum in years!
> I deleted the program, the q1share devd, and the share00* *MODD's.
>
>
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com