Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Rexx PGM holding a dataset 2
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Wed Mar 13, 2013 7:31 pm    Post subject: Rexx PGM holding a dataset 2
Reply with quote

I'm having a similar issue to this:

I create the output file in the JCL.
File is used to hold the output from the REXX exec
All return codes show '0'

The final step of the JCL is a file transfer, but the file transfer just sits and waits because the output file is still held by the REXX.
If I cancel the job, then restart the transfer step, the job completes.
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Wed Mar 13, 2013 7:46 pm    Post subject: Reply to: Rexx PGM holding a dataset 2
Reply with quote

Please don't tailgate an old topic, but start a new one, referring to the old one if you feel it helps.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Wed Mar 13, 2013 8:09 pm    Post subject:
Reply with quote

Okay, possibly, because the old topic is not here now so I'm not sure what "similar problem" you might have.

Just a guess, did you 'free' the DSN -- or are you sure it's 'free'?
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Wed Mar 13, 2013 8:33 pm    Post subject: Reply to: Rexx PGM holding a dataset 2
Reply with quote

Sorry Anuj, I've added the link :-)
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Wed Mar 13, 2013 9:08 pm    Post subject: Re: Rexx PGM holding a dataset 2
Reply with quote

John Diaz wrote:
I'm having a similar issue to this:

And we call for similar information: JCL, Rexx, and sysouts showing the trace and error messages. In Code tags, if you please.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Wed Mar 13, 2013 11:15 pm    Post subject: Reply to: Rexx PGM holding a dataset 2
Reply with quote

the issue is due to poor coding

verified with

Code:
/*REXX */
Trace "O"
dsname = "'ENRICO.TEST.ENQ'"
aparm  = "SPACE(2 2) TRACKS UNIT(SYSDA) " || ,
         "DSORG(PS) RECFM(F B) LRECL(80) " || ,
         "NEW CATALOG "

zrc =  $alloc("DDNAME", dsname, aparm)
say "after the ALLOC  RC("zrc")"
if  zrc \= 0 then do
    say "alloc error for file" dsname
    exit
end
parse pull z

zrc =  $free("DDNAME")
say "after the FREE   RC("zrc")"
parse pull z

del_0ms = msg("OFF")
Address TSO "DELETE 'ENRICO.TEST.ENQ'"
del_0rc = rc
z = msg(del_0ms)
say "after the DELETE RC("RC")"

Exit 0

/* */
$tsoex:
   tso_0tr = trace("O")
   Address TSO arg(1)
   tso_0rc = rc
   trace value(tso_0tr)
   return tso_0rc
/* */
$alloc:procedure
   alc_0tr = trace("O")
   parse upper arg ddnm, dsnm, misc
   ddnm = strip(ddnm)
   dsnm = strip(dsnm)
   dsnm = strip(dsnm,,"'")
   dsnm = "DA('"dsnm"') "
   misc = space(misc)
   alc_0ms = msg("OFF")
   Address TSO "FREE  FI("ddnm") "
   Address TSO "ALLOC FI("ddnm") " dsnm misc
   alc_0rc = rc
   z = msg(alc_0ms)
   trace value(alc_0tr)
   Return alc_0rc
/* */
$free:procedure
   alc_0tr = trace("O")
   parse upper arg ddnm
   ddnm = strip(ddnm)
   alc_0ms = msg("OFF")
   Address TSO "FREE  FI("ddnm") "
   alc_0rc = rc
   z = msg(alc_0ms)
   trace value(alc_0tr)
   Return alc_0rc


change the "ENRICO" with the userid running the test

after the message after the ALLOC RC(0)

logon somewhere else with a different user
use TSO ISRDDN ENQ
and You will see that

Code:
                           System ENQ Status                         Row 1 of 1
 Command ===>                                                  Scroll ===> PAGE

        Scroll LEFT or RIGHT to see type or system name.

 Major name prefix . . . SYSDSN    (SYSDSN, SPFEDIT, etc)
 Minor name prefix . . . ENRICO.TEST                                  (dsn etc)
 Address id prefix . . . ENRICO    (Job name, User id, etc)
 System prefix . . . . .           (System name)
   Major      Minor                                                  Job Name
 ┌──────────┬──────────────────────────────────────────────────────┬──────────┐
 │ SYSDSN   │ ENRICO.TEST.ENQ                                      │ ENRICO   │
 └──────────┴──────────────────────────────────────────────────────┴──────────┘


hit enter in the <other> session
and after the message after the FREE RC(0) You will see
Code:
                           System ENQ Status
 Command ===>                                                  Scroll ===> PAGE

        Scroll LEFT or RIGHT to see type or system name.

 Major name prefix . . . SYSDSN    (SYSDSN, SPFEDIT, etc)
 Minor name prefix . . . ENRICO.TEST                                  (dsn etc)
 Address id prefix . . . ENRICO    (Job name, User id, etc)
 System prefix . . . . .           (System name)
   Major      Minor                                                  Job Name
 ┌──────────┬──────────────────────────────────────────────────────┬──────────┐
 └──────────┴──────────────────────────────────────────────────────┴──────────┘



if the coding is correct, no outstanding ENQs

... obviously instead of ENRICO You will use and see the userid running the test icon_cool.gif
Back to top
View user's profile Send private message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Wed Mar 13, 2013 11:17 pm    Post subject:
Reply with quote

Thanks for the help. Gave up doing it on the Mainframe side. Download files, parse with a C# program, save where 'they' need the output.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Thu Mar 14, 2013 1:49 am    Post subject: Reply to: Rexx PGM holding a dataset 2
Reply with quote

Quote:
Gave up doing it on the Mainframe side. Download files, parse with a C# program, save where 'they' need the output.

It seems like extra work to me.

I am sure your original program just needed some tweaking to free the file.
Back to top
View user's profile Send private message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Thu Mar 14, 2013 1:51 am    Post subject:
Reply with quote

Maybe, but the C# option is complete and working (in test), so I'm moving forward with it. Thanks again for the options.
Back to top
View user's profile Send private message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Thu Mar 14, 2013 6:32 pm    Post subject: My 'problem child' REXX
Reply with quote

For what it's worth, here is the REXX exec.
Code:
/*REXX*/;parse upper arg File1 File2 Rpt1 ;
/*****************************************************************/
/***  ALLOCATE THE OUTPUT FILES, AND ADD A HEADER ROW, THEN'    **/
/***  CONVERT THE "@" TO ",'" TO PRESERVE LEADING ZEROS         **/
/***                                                            **/
/*** Variable Definitions:                                      **/
/***                                                            **/
/***   FILE1 = CFC867 FCTMP File Name                           **/
/***                                                            **/
/***   FILE2 = CFC867 Report GDG file                           **/
/***                                                            **/
/***   rpt1  = CFC867 CA3xR Report Name                         **/
/***                                                            **/
/*****************************************************************/
/******************<<<   R E V I S I O N S   >>>******************/
/*****************************************************************/
/*                                                               */
/*   DATE       PROJECT NO.    NAME       DESCRIPTION            */
/* 03/06/2013   13-089         J Diaz     New program            */
/*****************************************************************/
/**/
/*  Main Logic Start Here */
/**/
select
   When Rpt1 = 'GA30R' then do
outline1.1 = 'TYPE,GROUP,FA-NO,BETTERMENT-NO,PURC,DESCR,'
outline1.1 = OUTLINE1.1||'MANU,MODEL-NUM,LICENSE-NO,SERIAL-NO,'
outline1.1 = OUTLINE1.1||'ACQ-DATE,ASSET-AMT,LOC,DELIV,RPTG,ORGN'
   end
   When Rpt1 = 'GA31R' then do
outline1.1 = 'FA-TYPE,FA-GROUP,FA-NUMBER,BETTERMENT-NO,ACQ METHOD,'
outline1.1 =OUTLINE1.1||'DESCR,MANUF,MODEL,LIVENSE-NO,SERIAL-NO,'
outline1.1 =OUTLINE1.1||'ACQ-DATE,DISP-DATE,RPTG,AMT,ORGN,'
outline1.1 =OUTLINE1.1||'DELV-ORGN-TO,LOC-TO'
   end
   When Rpt1 = 'GA32R' then do
outline1.1 = 'FA-TYPE,FA-GROUP,FA-NUMBER,BETTERMENT-NO,ACQ METHOD,'
outline1.1 =OUTLINE1.1||'DESCR,MANUF,MODEL,LIVENSE-NO,SERIAL-NO,'
outline1.1 =OUTLINE1.1||'ACQ-DATE,DISP-DATE,RPTG,AMT,ORGN,'
outline1.1 =OUTLINE1.1||'DELV-ORGN-TO,LOC-TO'
   end
   When Rpt1 = 'GA33R' then do
outline1.1 = 'FA-TYPE,FA-GROUP,FA-NUMBER,BETTERMENT-NO,ACQ-METHOD,'
outline1.1 =OUTLINE1.1||'DESCR,MANUF,MODEL,LICENSE-NO,SERIAL-NO,'
outline1.1 =OUTLINE1.1||'XFER-DATE,ACQ-DATE,DISP-DATE,RPTG,AMOUNT,'
outline1.1 =OUTLINE1.1||'ORGN,DELG-ORG-TO,LOC-TO,DELV-ORG-FROM,'
outline1.1 =OUTLINE1.1||'LOC-FROM'
   end
 end
/**/
/* Allocate Input File */
RealName= GETDSName()
/**/
  "ALLOC DA('"||RealName||"') DD(INFILE) SHR"
  if rc = 0 then nop
  else do
     say 'Input File Not Found!!!!!'
     rc=555
     signal EndIt
  end
/**/
/*  read the '@' delimited file */
/**/
   'EXECIO * DISKR INFILE (STEM CFC867Data. FINIS'
   "free DD(INFILE)"
/**/
/*  Change "@" to ",'"          */
/**/
InCnt=1 /* Skip the line if 'A@A' */
OutCnt1=1  /*headers have already been written. */
   do CFC867Data.0
     InCnt = InCnt + 1
     OutCnt1 = OutCnt1 + 1
     OutLine1.OutCnt1 = STRREPLACE(CFC867Data.InCnt,", ",":")
     OutLine1.OutCnt1 = STRREPLACE(Outline1.Outcnt1,"@",",'")
   end
Signal EndIt
/**/
/**/
/**/
/* All called Subroutines and Functions are located in this section */
/* This isn't a REXX requirement, it just makes maintenance easier  */
/* with everything in one place                                     */
/**/
/**/
/* ENDIT is the common exit point the the main exec logic, */
/**/
/**/
EndIt:
 /**/
New0=OutCnt1
if words(Outline1.New0) = 1 then do
   Outline1.new0 = ''
   end
else
   nop
/* Allocate output file  */
trace ira
      Alloc_Name = " FI(VFCFC001) DA('"||File1||"') SHR"
     "alloc "||alloc_name
/**/
  if rc = 0 then nop
  else do
     say 'Output File NOT Allocated!!!'
 "free all"
     rc=555
     exit rc
  end
 'EXECIO * DISKW VFCFC001   (FINIS STEM OUTLINE1. '
 say 'EXECIO RC='||rc
 "free DD(VFCFC001)"
 say 'FREE RC='||rc
 exit rc
 /**/
GetDSName:
Call outtrap 'stem.'
"listcat ent('" || File2 || "') all"
If rc>0 Then Return 12
Call outtrap 'OFF'
  Do a=1 to stem.0
  If word(stem.a,1) = "NONVSAM " then DSName=word(stem.a,3)
  end
  return DSName
/**/
/* A FUNCTION TO DO A STRING REPLACE */
/**/
STRREPLACE:
ORIGINAL = ARG(1)
OLDTXT = ARG(2)
NEWTXT = ARG(3)
/* YOU CAN CHANGE THE BELOW KEY (TMPTXT), WHICH IS USED AS A TEMPORARY
POINTER TO IDENTIFY THE TEXT TO BE REPLACED */
TMPTXT = '6A53CD2EW1F'
NEWSTR = ORIGINAL
DO WHILE POS(OLDTXT,NEWSTR) > 0
NEWSTR = SUBSTR(NEWSTR, 1 , POS(OLDTXT,NEWSTR)-1) ||,
TMPTXT || SUBSTR(NEWSTR, POS(OLDTXT,NEWSTR) + LENGTH(OLDTXT))
END
DO WHILE POS(TMPTXT,NEWSTR) > 0
NEWSTR = SUBSTR(NEWSTR, 1 , POS(TMPTXT,NEWSTR)-1) ||,
NEWTXT || SUBSTR(NEWSTR, POS(TMPTXT,NEWSTR) + LENGTH(TMPTXT))
END
RETURN NEWSTR
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Mar 14, 2013 6:40 pm    Post subject: Reply to: Rexx PGM holding a dataset 2
Reply with quote

the TAGS used here are not in HTML/XML format

they use square bracket [] instead of <>

and use the preview button to check that Your post looks readable
Back to top
View user's profile Send private message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Thu Mar 14, 2013 6:42 pm    Post subject:
Reply with quote

Sorry about the tags. I thought I remembered correctly
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Mar 14, 2013 6:43 pm    Post subject: Reply to: Rexx PGM holding a dataset 2
Reply with quote

no need to insert them by hand , mouse select the text You want to tag and click on the proper <button>
Back to top
View user's profile Send private message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Thu Mar 14, 2013 6:45 pm    Post subject:
Reply with quote

Well that makes too much sense... ;)
Programmer too stupid.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Mar 14, 2013 6:51 pm    Post subject:
Reply with quote

I've added the code tags for you, John. icon_smile.gif
Back to top
View user's profile Send private message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Thu Mar 14, 2013 6:52 pm    Post subject:
Reply with quote

Thank you
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Mar 14, 2013 7:26 pm    Post subject: Reply to: Rexx PGM holding a dataset 2
Reply with quote

NOT A REXX PROBLEM

By looking at the REXX comment the behavior is what should be expected
and does not depend on alloc/free or REXX...

the ENQ behavior for GDGs is pretty murky there is usually an enq on the GDG base

the problem has been discussed quite a few times on the forum
and if You search the forum it is a normal behavior when FTPing GDGs
allocating by dsname result in an exclusive enq ( OLD )

the proper way is to FTP using the ddname and allocating the input in the JCL
Back to top
View user's profile Send private message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Thu Mar 14, 2013 8:01 pm    Post subject:
Reply with quote

The GDG files are the input into the process. The File1.FCTMP.CFC8670x files are the ones that are transferred, and that's where the issue shows up. The FCTMP files don't appear to be released, at least that's the way it's acting. The file transfer step just sits and waits until I cancel the job
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Mar 14, 2013 8:47 pm    Post subject: Reply to: Rexx PGM holding a dataset 2
Reply with quote

AGAIN NOT A REXX PROBLEM

here is my test

the jcl
Code:
 ****** ***************************** Top of Data ******************************
 000001 //ENRICO1  JOB (FTP),'FTP',NOTIFY=ENRICO,
 000002 //             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
 000003 //*
 000004 //IDC     EXEC PGM=IDCAMS
 000005 //SYSPRINT  DD SYSOUT=*
 000006 //SYSIN     DD *
 000007   DELETE 'ENRICO.TEST.ENQ' NVSAM PURGE
 000008   SET MAXCC=0
 000009 //*
 000010 //IKJ     EXEC PGM=IKJEFT1A
 000011 //SYSPROC   DD DISP=SHR,DSN=ENRICO.ISPF.EXEC
 000012 //SYSPRINT  DD SYSOUT=*
 000013 //SYSTSPRT  DD SYSOUT=*
 000014 //SYSTSIN   DD *
 000015   ENQTEST
 000016 //FTP     EXEC PGM=FTP PARM='192.168.0.110'
 000017 //SYSPRINT  DD SYSOUT=*
 000018 //OUTPUT    DD SYSOUT=*
 000019 //INPUT     DD *
 000020 192.168.0.110
 000021 enrico ......
 000022 cd zmisc
 000023 put 'ENRICO.TEST.ENQ' test1.txt
 000024 quit
 ****** **************************** Bottom of Data ****************************


the script
Code:
/*REXX */
Trace "O"
dsname = "'ENRICO.TEST.ENQ'"
aparm  = "SPACE(2 2) TRACKS UNIT(SYSDA) " || ,
         "DSORG(PS) RECFM(F B) LRECL(80) " || ,
         "NEW CATALOG "

zrc =  $alloc("DDNAME", dsname, aparm)
say "after the ALLOC  RC("zrc")"
if  zrc \= 0 then do
    say "alloc error for file" dsname
    exit
end

stem.0 = sourceline()
do i = 1 to stem.0
   stem.i = sourceline(i)
end

zrc =  $tsoex("EXECIO" stem.0 "DISKW DDNAME (STEM STEM. FINIS")
say "after the EXECIO RC("zrc")"
if  zrc \= 0 then do
    say "EXECIO error for file" dsname
    exit
end

zrc =  $free("DDNAME")
say "after the FREE   RC("zrc")"

if 0 then do
del_0ms = msg("OFF")
Address TSO "DELETE 'ENRICO.TEST.ENQ'"
del_0rc = rc
z = msg(del_0ms)
say "after the DELETE RC("RC")"
end

Exit 0

/* */
novalue:
say  "*********************************"
say  "**                             **"
say  "** novalue trapped at line" || right(sigl,4) || " **"
say  "**                             **"
say  "*********************************"
exit

/* */
$tsoex:
   tso_0tr = trace("O")
   Address TSO arg(1)
   tso_0rc = rc
   trace value(tso_0tr)
   return tso_0rc
/* */
$alloc:procedure
   alc_0tr = trace("O")
   parse upper arg ddnm, dsnm, misc
   ddnm = strip(ddnm)
   dsnm = strip(dsnm)
   dsnm = strip(dsnm,,"'")
   dsnm = "DA('"dsnm"') "
   misc = space(misc)
   alc_0ms = msg("OFF")
   Address TSO "FREE  FI("ddnm") "
   Address TSO "ALLOC FI("ddnm") " dsnm misc
   alc_0rc = rc
   z = msg(alc_0ms)
   trace value(alc_0tr)
   Return alc_0rc
/* */
$free:procedure
   alc_0tr = trace("O")
   parse upper arg ddnm
   ddnm = strip(ddnm)
   alc_0ms = msg("OFF")
   Address TSO "FREE  FI("ddnm") "
   alc_0rc = rc
   z = msg(alc_0ms)
   trace value(alc_0tr)
   Return alc_0rc


the jes output

Code:

1                         J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N O D E  N 1             
0
 17.10.47 JOB02081 ---- THURSDAY,  14 MAR 2013 ----
 17.10.47 JOB02081  IRR010I  USERID ENRICO   IS ASSIGNED TO THIS JOB.
 17.10.47 JOB02081  ICH70001I ENRICO   LAST ACCESS AT 17:09:26 ON THURSDAY, MARCH 14, 2013
 17.10.47 JOB02081  $HASP373 ENRICO1  STARTED - INIT 1    - CLASS A - SYS SYS1
 17.10.47 JOB02081  IEF403I ENRICO1 - STARTED - TIME=17.10.47
 17.10.47 JOB02081  HTRT01I                                         CPU (Total)  Elapsed      CPU (TCB)    CPU (SRB)     Service
 17.10.47 JOB02081  HTRT02I Jobname  Stepname ProcStep    RC    I/O hh:mm:ss.th  hh:mm:ss.th  hh:mm:ss.th  hh:mm:ss.th     Units
 17.10.47 JOB02081  HTRT03I ENRICO1  IDC                  00     54       00.13        00.25        00.12        00.01      3222
 17.10.48 JOB02081  HTRT03I ENRICO1  IKJ                  00     92       00.32        00.45        00.31        00.01      8542
 17.10.49 JOB02081  HTRT03I ENRICO1  FTP                  00    730       00.57        01.10        00.55        00.02     14937
 17.10.49 JOB02081  IEF404I ENRICO1 - ENDED - TIME=17.10.49
 17.10.49 JOB02081  HTRT06I
 17.10.49 JOB02081  HTRT04I ENRICO1  Job Service Totals         876       01.02        01.86        00.98        00.04     26701
 17.10.49 JOB02081  $HASP395 ENRICO1  ENDED
0------ JES2 JOB STATISTICS ------                                                                                                   
-  14 MAR 2013 JOB EXECUTION DATE                                                                                                   
-           23 CARDS READ                                                                                                           
-          214 SYSOUT PRINT RECORDS                                                                                                 
-            0 SYSOUT PUNCH RECORDS                                                                                                 
-           13 SYSOUT SPOOL KBYTES                                                                                                   
-         0.03 MINUTES EXECUTION TIME                                                                                               
 !! END OF JES SPOOL FILE !!
        1 //ENRICO1  JOB (FTP),'FTP',NOTIFY=ENRICO,                               JOB02081
          //             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)                               
          //*                                                                             
        2 //IDC     EXEC PGM=IDCAMS                                                       
        3 //SYSPRINT  DD SYSOUT=*                                                         
        4 //SYSIN     DD *                                                               
          //*                                                                             
        5 //IKJ     EXEC PGM=IKJEFT1A                                                     
        6 //SYSPROC   DD DISP=SHR,DSN=ENRICO.ISPF.EXEC                                   
        7 //SYSPRINT  DD SYSOUT=*                                                         
        8 //SYSTSPRT  DD SYSOUT=*                                                         
        9 //SYSTSIN   DD *                                                               
       10 //FTP     EXEC PGM=FTP PARM='192.168.0.110'                                     
       11 //SYSPRINT  DD SYSOUT=*                                                         
       12 //OUTPUT    DD SYSOUT=*                                                         
       13 //INPUT     DD *                                                               
 !! END OF JES SPOOL FILE !!
 ICH70001I ENRICO   LAST ACCESS AT 17:09:26 ON THURSDAY, MARCH 14, 2013
 IEF236I ALLOC. FOR ENRICO1 IDC
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF237I 0AB1 ALLOCATED TO SYS00001
 IEF285I   ENRICO.TEST.ENQ                              KEPT         
 IEF285I   VOL SER NOS= STOR01.                           
 IEF142I ENRICO1 IDC - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ENRICO.ENRICO1.JOB02081.D0000104.?           SYSOUT       
 IEF285I   ENRICO.ENRICO1.JOB02081.D0000101.?           SYSIN         
 HTRT05I ------------------------------------------------------------------------
         - Step Termination Statistics                                          -
         -                                                                      -
         - Program Name       IDCAMS                            hh:mm:ss.th     -
         - Step Name          IDC               Elapsed Time          00.25     -
         - Procedure Step                       TCB CPU Time          00.12     -
         - Return Code              00          SRB CPU Time          00.01     -
         - Total I/O                54          Total CPU Time        00.13     -
         - Service Units          3222                                          -
         -                                                                      -
         - Region Size           1024K          Pages Paged               0     -
         - Data/Hiperspace          0M          Pages Swapped             0     -
         - ASID Swaps                0          Pages Stolen              0     -
         -                                      VIO (In and Out)          0     -
         -                                                                      -
         - --------Below 16Meg--------          --------Above 16Meg--------     -
         - Private Area          9192K          Private Area       1801216K     -
         - Max Allocated          192K          Max Allocated            0K     -
         - LSQA And SWA           276K          LSQA And SWA         10960K     -
         -                                                                      -
         - DDName    Unit    Blksize       I/O                                  -
         - *System*                         54                                  -
         -                                                                      -
         ------------------------------------------------------------------------
 IEF373I STEP/IDC     /START 2013073.1710
 IEF374I STEP/IDC     /STOP  2013073.1710 CPU    0MIN 00.12SEC SRB    0MIN 00.01SEC VIRT   192K SYS   276K EXT       0K SYS   10960K
 IEF236I ALLOC. FOR ENRICO1 IKJ
 IEF237I 0AB4 ALLOCATED TO SYSPROC
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I JES2 ALLOCATED TO SYSTSPRT
 IEF237I JES2 ALLOCATED TO SYSTSIN
 IGD100I 0AB1 ALLOCATED TO DDNAME DDNAME   DATACLAS (        )
 IEF285I   ENRICO.TEST.ENQ                              CATALOGED     
 IEF285I   VOL SER NOS= STOR01.                           
 IEF142I ENRICO1 IKJ - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ENRICO.ISPF.EXEC                             KEPT         
 IEF285I   VOL SER NOS= STOR04.                           
 IEF285I   ENRICO.ENRICO1.JOB02081.D0000105.?           SYSOUT       
 IEF285I   ENRICO.ENRICO1.JOB02081.D0000106.?           SYSOUT       
 IEF285I   ENRICO.ENRICO1.JOB02081.D0000102.?           SYSIN         
 HTRT05I ------------------------------------------------------------------------
         - Step Termination Statistics                                          -
         -                                                                      -
         - Program Name       IKJEFT1A                          hh:mm:ss.th     -
         - Step Name          IKJ               Elapsed Time          00.45     -
         - Procedure Step                       TCB CPU Time          00.31     -
         - Return Code              00          SRB CPU Time          00.01     -
         - Total I/O                92          Total CPU Time        00.32     -
         - Service Units          8542                                          -
         -                                                                      -
         - Region Size           1024K          Pages Paged               0     -
         - Data/Hiperspace          0M          Pages Swapped             0     -
         - ASID Swaps                0          Pages Stolen              0     -
         -                                      VIO (In and Out)          0     -
         -                                                                      -
         - --------Below 16Meg--------          --------Above 16Meg--------     -
         - Private Area          9192K          Private Area       1801216K     -
         - Max Allocated          176K          Max Allocated          396K     -
         - LSQA And SWA           408K          LSQA And SWA         11288K     -
         -                                                                      -
         - DDName    Unit    Blksize       I/O                                  -
         - SYSPROC   0AB4      27920         2                                  -
         - *System*                         90                                  -
         -                                                                      -
         ------------------------------------------------------------------------
 IEF373I STEP/IKJ     /START 2013073.1710
 IEF374I STEP/IKJ     /STOP  2013073.1710 CPU    0MIN 00.31SEC SRB    0MIN 00.01SEC VIRT   176K SYS   408K EXT     396K SYS   11288K
 IEF236I ALLOC. FOR ENRICO1 FTP
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I JES2 ALLOCATED TO OUTPUT
 IEF237I JES2 ALLOCATED TO INPUT
 IEF237I 0A82 ALLOCATED TO SYS00005
 IEF285I   TCPIP.TCPIP.DATA                             KEPT         
 IEF285I   VOL SER NOS= ZASYS1.                           
 IEF237I 0A81 ALLOCATED TO SYS00007
 IEF285I   TCPIP.STANDARD.TCPXLBIN                      KEPT         
 IEF285I   VOL SER NOS= ZARES2.                           
 IEF237I 0A82 ALLOCATED TO SYS00008
 IEF285I   TCPIP.FTP.DATA                               KEPT         
 IEF285I   VOL SER NOS= ZASYS1.                           
 IEF237I 0A81 ALLOCATED TO SYS00009
 IEF285I   TCPIP.STANDARD.TCPXLBIN                      KEPT         
 IEF285I   VOL SER NOS= ZARES2.                           
 IEF237I 0AB1 ALLOCATED TO SYS00010
 IEF285I   ENRICO.TEST.ENQ                              KEPT         
 IEF285I   VOL SER NOS= STOR01.                           
 IEF142I ENRICO1 FTP - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ENRICO.ENRICO1.JOB02081.D0000107.?           SYSOUT       
 IEF285I   ENRICO.ENRICO1.JOB02081.D0000108.?           SYSOUT       
 IEF285I   ENRICO.ENRICO1.JOB02081.D0000103.?           SYSIN         
 HTRT05I ------------------------------------------------------------------------
         - Step Termination Statistics                                          -
         -                                                                      -
         - Program Name       FTP                               hh:mm:ss.th     -
         - Step Name          FTP               Elapsed Time          01.10     -
         - Procedure Step                       TCB CPU Time          00.55     -
         - Return Code              00          SRB CPU Time          00.02     -
         - Total I/O               730          Total CPU Time        00.57     -
         - Service Units         14937                                          -
         -                                                                      -
         - Region Size           1024K          Pages Paged               0     -
         - Data/Hiperspace          0M          Pages Swapped             0     -
         - ASID Swaps                0          Pages Stolen              0     -
         -                                      VIO (In and Out)          0     -
         -                                                                      -
         - --------Below 16Meg--------          --------Above 16Meg--------     -
         - Private Area          9192K          Private Area       1801216K     -
         - Max Allocated          248K          Max Allocated         3224K     -
         - LSQA And SWA           276K          LSQA And SWA         11328K     -
         -                                                                      -
         - DDName    Unit    Blksize       I/O                                  -
         - *System*                        730                                  -
         -                                                                      -
         ------------------------------------------------------------------------
 IEF373I STEP/FTP     /START 2013073.1710
 IEF374I STEP/FTP     /STOP  2013073.1710 CPU    0MIN 00.55SEC SRB    0MIN 00.02SEC VIRT   248K SYS   276K EXT    3224K SYS   11328K
 IEF375I  JOB/ENRICO1 /START 2013073.1710
 IEF376I  JOB/ENRICO1 /STOP  2013073.1710 CPU    0MIN 00.98SEC SRB    0MIN 00.04SEC
 !! END OF JES SPOOL FILE !!
1IDCAMS  SYSTEM SERVICES                                           TIME: 17:10:47        03/14/13     PAGE      1
0       
   DELETE 'ENRICO.TEST.ENQ' NVSAM PURGE
0IDC0550I ENTRY (A) ENRICO.TEST.ENQ DELETED
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0       
0IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
 !! END OF JES SPOOL FILE !!
1READY
   ENQTEST
 after the ALLOC  RC(0)
 after the EXECIO RC(0)
 after the FREE   RC(0)
 READY
 END
 !! END OF JES SPOOL FILE !!
 EZA1736I FTP
 EZY2640I Using 'TCPIP.FTP.DATA' for local site configuration parameters.
 EZA1450I IBM FTP CS V1R10
 EZA1456I Connect to ?
 EZA1736I 192.168.0.110
 EZA1554I Connecting to:   192.168.0.110 port: 21.
 220 192.168.0.110 FTP server (tnftpd 20100324+GSSAPI) ready.
 EZA1459I NAME (192.168.0.110:ENRICO):
 EZA1701I >>> USER enrico
 331 User enrico accepted, provide password.
 EZA1701I >>> PASS
 230 User enrico logged in.
 EZA1460I Command:
 EZA1736I cd zmisc
 EZA1701I >>> CWD zmisc
 250 CWD command successful.
 EZA1460I Command:
 EZA1736I put 'ENRICO.TEST.ENQ' test1.txt
 EZA1701I >>> SITE FIXrecfm 80 LRECL=80 RECFM=FB BLKSIZE=27920
 500 'SITE FIXrecfm 80 LRECL=80 RECFM=FB BLKSIZE=27920': command not understood.
 EZA1701I >>> PORT 192,168,0,115,4,20
 200 PORT command successful.
 EZA1701I >>> STOR test1.txt
 150 Opening ASCII mode data connection for 'test1.txt'.
 226 Transfer complete.
 EZA1617I 1820 bytes transferred in 0.005 seconds.  Transfer rate 364.00 Kbytes/sec.
 EZA1460I Command:
 EZA1736I quit
 EZA1701I >>> QUIT
 221-
     Data traffic for this session was 1738 bytes in 1 file.
     Total traffic for this session was 2295 bytes in 1 transfer.
 221 Thank you for using the FTP service on 192.168.0.110.
 !! END OF JES SPOOL FILE !!



what was transferred

Code:

/*REXX */
Trace "O"
dsname = "'ENRICO.TEST.ENQ'"
aparm  = "SPACE(2 2) TRACKS UNIT(SYSDA) " || ,
         "DSORG(PS) RECFM(F B) LRECL(80) " || ,
         "NEW CATALOG "

zrc =  $alloc("DDNAME", dsname, aparm)
say "after the ALLOC  RC("zrc")"
if  zrc \= 0 then do
    say "alloc error for file" dsname
    exit
end

stem.0 = sourceline()
do i = 1 to stem.0
   stem.i = sourceline(i)
end

zrc =  $tsoex("EXECIO" stem.0 "DISKW DDNAME (STEM STEM. FINIS")
say "after the EXECIO RC("zrc")"
if  zrc \= 0 then do
    say "EXECIO error for file" dsname
    exit
end

zrc =  $free("DDNAME")
say "after the FREE   RC("zrc")"

if 0 then do
del_0ms = msg("OFF")
Address TSO "DELETE 'ENRICO.TEST.ENQ'"
del_0rc = rc
z = msg(del_0ms)
say "after the DELETE RC("RC")"
end

Exit 0

/* */
novalue:
say  "*********************************"
say  "**                             **"
say  "** novalue trapped at line" || right(sigl,4) || " **"
say  "**                             **"
say  "*********************************"
exit

/* */
$tsoex:
   tso_0tr = trace("O")
   Address TSO arg(1)
   tso_0rc = rc
   trace value(tso_0tr)
   return tso_0rc
/* */
$alloc:procedure
   alc_0tr = trace("O")
   parse upper arg ddnm, dsnm, misc
   ddnm = strip(ddnm)
   dsnm = strip(dsnm)
   dsnm = strip(dsnm,,"'")
   dsnm = "DA('"dsnm"') "
   misc = space(misc)
   alc_0ms = msg("OFF")
   Address TSO "FREE  FI("ddnm") "
   Address TSO "ALLOC FI("ddnm") " dsnm misc
   alc_0rc = rc
   z = msg(alc_0ms)
   trace value(alc_0tr)
   Return alc_0rc
/* */
$free:procedure
   alc_0tr = trace("O")
   parse upper arg ddnm
   ddnm = strip(ddnm)
   alc_0ms = msg("OFF")
   Address TSO "FREE  FI("ddnm") "
   alc_0rc = rc
   z = msg(alc_0ms)
   trace value(alc_0tr)
   Return alc_0rc



NOBODY WAITED FOR ANYTHING ...

wiser to review Your setup
Back to top
View user's profile Send private message
John Diaz

New User


Joined: 22 Feb 2013
Posts: 10
Location: USA

PostPosted: Thu Mar 14, 2013 8:54 pm    Post subject:
Reply with quote

kill the thread.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
No new posts To trim spaces in a pipe delimited da... Nish84 COBOL Programming 16 Mon Oct 10, 2016 1:54 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us