× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Tom wrote:

> I'm including a trivial example in CL just to demonstrate
> batch/workstation capability.
  <snip>
> Using RPG, examine op-codes such as ACQ and REL.

Nice one Tom. I have to say the mischief potential occurred to me
immediately. :-))

OK here's a version that demonstrates input of data. I've renamed the
display file ABCFM. (Because that's what I had already lying around.) I
think James's problem was not removing the WAIT(*NO) from the SNDRCVF. This
works fine either interactively or in batch. However, I still can't get an
RPG version to work in batch using a WORKSTN file and ACQ and REL.
Interactively, yes; but in batch it fails on the OPEN.

Of course it looks as though it's dead in the water as a CFINT killer as
Leif tells us the 5250 bit is still set.

*************** Beginning of data ************************************
A                                      DSPSIZ(24 80 *DS3)
A                                      CF03(03 'Command 3')
A          R FORM01
A                                  5  9'Enter some data . . . . . .:'
A            IFLD          10A  I  5 38
A                                  8  9'Last entered was. . . . . .:'
A            OFLD          10A  O  8 38
A                                 23  3'F03=End'
A                                      COLOR(BLU)
****************** End of data ***************************************

*************** Beginning of data ************************
ACQBCH: PGM        PARM(&DEV)

         DCL        VAR(&DEV) TYPE(*CHAR) LEN(10)

         DCLF       abcfm


         OVRDSPF    abcfm    DEV(&DEV)

sndrcv:
         SNDRCVF    RCDFMT(FORM01)
         MONMSG     MSGID(CPF4128) EXEC(DO)
         SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
            MSGDTA('Device is in use or not varied on') +
            MSGTYPE(*COMP)
         RETURN
         ENDDO

         If &in03 return
         chgvar &ofld &ifld
         goto sndrcv

         RETURN
         ENDPGM
****************** End of data *****************************

Dave...

"Seriousness is the only refuge of the shallow." - Oscar Wilde

=======================================================
The opinions expressed in this communication are my own and do not
necessarily reflect those of my employer.



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-2024 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.