RJE commands to pick up files from remote system

[da...@csiflorida.com]

I still have one problem remaining using RJE from our AS/400.

I was able to temporarily activate RJE to test out our connection. I
cannot seem to pick up files from the remote system however.
Apparently I need to send some commands over the RJE connection to
instruct the remote system to send the file and also to let RJE know
where to save the file(s) received.

The RJE Guide manual only lists like 3 commands that are available to
send to the remote system... and they don't seem to be working for me.

Does anyone know the commands I need to send to the remote system and
how to send them?

Many thanks in advance.

[David Russell]

Hello, here is a sample of two programs one create a sna config the other is
for receiving data. You may need to get some JCL from the host to allow the
files to be sent. The other is a forms control table entry which tells the
as400 what is coming so that it can either put it in a file or send it to
the printer. THIS IS ASSUMING AN SDLC CONNECTION. IF YOU ARE USING BISYNC
THAT IS A LITTLE DIFFERENT. Let me know as i have done both.
******************************************

/***************************************************************************
********/
/* EXAMPLE OF CL PROGRAM TO CREATE SDLC CONNECTION FOR RJE */
PGM
DLTRJECFG SSN(QIPRJE) CFGID(IP) /* delete config */
MONMSG MSGID(CPF0000)
/* DELETE RJE FORMS CONTROL IF PD IS THERE */

DLTFCT FCT(*LIBL/QIPFCT)
MONMSG CPF0000

/* CREATE RJE FORMS CONTROL */

CRTFCT FCT(XXXX/QIPFCT) TEXT('Forms Control for +
xxxxx')

ADDFCTE FCT(*LIBL/QIPFCT) FORMTYPE(TRDE) +
DEVTYPE(*PRT) FILE(*LIBL/PDPTRDES) +
MBR(*FIRST) DTAFMT(*DATA)
ADDFCTE FCT(*LIBL/QIPFCT) FORMTYPE(TRDS) +
DEVTYPE(*PRT) FILE(*LIBL/XXXXX) +
MBR(*FIRST) DTAFMT(*DATA)

CRTRJECFG SSN(QIPRJE) LINTYP(*SDLCS) LOGON('LOGON +
APPLID(JES2) DATA(RMT,,STN1)') +
FORMATTED(*YES) RJERDRS(1) RJEPRTS(2) +
RJEPUNS(1) BLKLEN(256) FCT(*LIBL/QIPFCT) +
CFGID(IP) CNN(*SWTPP) NRZI(*YES) +
UNITADR(02 03 04 05) STNADR(C1) +
SSCPID(054040404040) EXCHID(056XXXX) +
CNNNBR('XXXXXXXXX') AUTODIAL(*YES) +
AUTOANS(*YES) DIALCMD(*V25BIS) /* +
SNA Config */
CHGPRTF FILE(QIPPRTFPR1) PAGESIZE(*SAME 198) +

CTLCHAR(*NONE)
CHGPRTF FILE(QIPPRTFPR2) PAGESIZE(*SAME 198) +
CTLCHAR(*NONE)
CHGRJEWTRE SSND(QRJE/QIPRJE) WTR(PR1) DTAFMT(*DATA)
CHGRJEWTRE SSND(QRJE/QIPRJE) WTR(PR2) DTAFMT(*DATA)
CHGSSND SSND(QIPRJE) IDLETIME(1) SEPFILE(*YES)
ENDPGM

/***************************************************************************
********/
/* EXAMPLE OF CL PROGRAM TO SUMBIT JOB ON rje HOS SYSTEM FOR SDLC CONNECTION
*/

START: STRSBS SBSD(QRJE/&TRNID) /* start rje subsys */
MONMSG MSGID(CPF1010)

SEND: STRRJESSN SSND(&TRNID) /* start up the rje session */
MONMSG MSGID(RJE0237) EXEC(GOTO CMDLBL(START))
MONMSG MSGID(RJE0012)
MONMSG MSGID(RJE0003) EXEC(DO)
DLYJOB DLY(5)
GOTO SEND
ENDDO
/* submit rje job on the remote system */
/*mbr=JCL from remote system */
SBMRJEJOB FILE(xxxxxx/QRJESRC) MBR(&TRNJCL) +
SSND(&TRNID) CMD(*YES) OPTION(*IMMED)
MONMSG MSGID(RJE0003) EXEC(GOTO CMDLBL(SEND))
/** WAIT FOR FILE TO BE RECEIVED
MONMSGQ2: CHGVAR VAR(&RTNCODE) VALUE(' ')
CALL PGM(TMCRMSG) PARM(&TRNID &RTNCODE)

RNTCD0: IF COND(&RTNCODE *EQ '0') THEN(DO)
IF COND(&TRNPGM *NE ' ') THEN(DO)
SBMJOB CMD(CALL PGM(&TRNPGM)) JOB(&JOB)
ENDDO
SPLFWAIT: DLYJOB DLY(120)
/* wait for the spool file to come down */
CHGSPLFA FILE(*SELECT) SAVE(*YES)
MONMSG MSGID(CPF3303) /* EXEC(GOTO CMDLBL(SPLFWAIT))*/
MONMSG MSGID(CPF3300)
MONMSG MSGID(CPF3400)
/* stop the rje session*/
ENDRJESSN SSN(&TRNID) OPTION(*IMMED)
MONMSG MSGID(RJE0003)

ENDSBS SBS(&TRNID) DELAY(300)
MONMSG MSGID(CPF1054)
CHGSPLFA FILE(*SELECT) SELECT(&JUSER$ *ALL STD) +
DEV(PRT01) FORMTYPE(*STD) SAVE(*YES)
MONMSG MSGID(CPF3303 CPF3300 CPF3400 CPF0000)

<da...@csiflorida.com> wrote in message
news:dip9eu4vjlabe4k6t...@4ax.com...

[da...@csiflorida.com]

I appreciate your assistance but I believe I should have explained my
needs better.

In your second CL you are sending saved RJE commands to the remote
system, the 15th line (not counting blank lines) reads as follows:

SBMRJEJOB FILE(xxxxxx/QRJESRC) MBR(&TRNJCL) +
SSND(&TRNID) CMD(*YES) OPTION(*IMMED)

The information I am looking for would be the actual contents of file
being send to the remote system. I imagine the commands will differ
depending on the file name to be received however it is the commands,
such as RECV, RECVFILE, or something along these lines I imagine, that
I need to know about.

Many thanks in advance,
David

[david russell]

Hello again that information you need to get from the host system
operator. It is the jcl for running the job.
Here is a sample... It wont work for you but it should give you an
idea
//RJED JOB xxx,'ID xxx ',
// CLASS=W,
// MSGCLASS=X,
// MSGLEVEL=(1,1),REGION=6M
// EXEC RJECF201,RMT=510,TME=HHMMSS,DATE=MMDDYY,
// DFUNC=TRAC,LRECL=807,LRCL=847,PARTID=0786
// TRANID=013
//RJECFINP.INPUT1 DD *
.. READFILE FILE(*LIBL/xxxxxx) MBR(*FIRST) CMD(*NO)
.. EOF
/*
//

da...@csiflorida.com wrote in message news:<rrcgeuge9s36741hp...@4ax.com>...