On Fri, Mar 19, 2010 at 10:40 AM, Joe Reichman <joereich...@optonline.net>wrote:
> Hi, > > > > The following code works (ECB is posted by TCP/IP) except when I catalouge > the program RENT=(REUS) > > > > Would anybody have any ideas > > > > *---------------------------------------------------------------------* > > * GET THE SOCKET TO READ * > > *---------------------------------------------------------------------* > > MVC COMM,=CL8'TAKESOCK' > > XC MY_PARM(MY_PARM_LEN),MY_PARM CLEAR PARAMTER LIST > > LA R10,MY_ECB GET MAIN TASK ECB > > ST R10,ECB_LIST STORE IT > > LA R10,MVS_ECB GET MAIN TASK ECB > > ST R10,ECB_LIST+4 STORE IT > > OI ECB_LIST+4,X'80' MARK END > > EZASMI TYPE=TAKESOCKET, Issue INITAPI Macro > X > > SOCRECV=SOCKET, > X > > CLIENT=CLIENT, SPECIFY SUBTASK IDENTIFIER > X > > ERRNO=ERRNO, (Specify ERRNO field) > X > > RETCODE=RETCODE, (Specify RETCODE field) > X > > ECB=MY_ECB, > X > > ERROR=ERROR, ABEND IF ERROR ON MACRO > X > > TASK=MYTIE, > X > > MF=(E,MY_PARM) > > * > > * WAIT ECB=MY_ECB > > * B CK_RET > > WAIT 1,ECBLIST=ECB_LIST > > L R10,ECB_LIST+4 GET MVS ECB > > CLC 1(3,R10),=3X'00' POSTED > > BE RETURN YES; GO BACK > > > what are the symptoms? Any error messages? Any abends? > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html