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