>From your trace it is easy to see that your variable dsize is not getting set:

  1547 *-*      arg ddr? pack? dtype dsize .


       >>>        "0"


       >>>        "9336"


       >>>        "784"


       >>>        ""


       >.>        "" 

-----Original Message-----
From: CMSTSO Pipelines Discussion List [mailto:[email protected]] On 
Behalf Of Frank M. Ramaekers
Sent: Monday, November 08, 2010 7:46 AM
To: [email protected]
Subject: PIPEDDR bug in latet version

Tracing:

  1534 *-*
/*------------------------------------------------------------------* * Set up 
the Pipeline stages for showing pro

gress messages. * We define variables progresspipe, progresspipe2, and 
rexxfilter *-----------------------------------------------

-------------------*/


  1538 *-*      /* Settings for showing progress messages as work is
done           */                                            

  1539 *-*      cyltrk=15          /* 15 tracks/cyl for 3380 and 3390
disk          */                                            

       >L>        "15"


  1540 *-*      fbablk.0=762       /* Pipelines fba blocks in record
(observed)     */                                            

       >L>        "762"


  1541 *-*      fbablk.1=115       /* DDR fba blocks in record (about)
*/                                            

       >L>        "115"


  1542 *-*      minshow.=500       /* Must process this many records as
a minimum   */                                            

       >L>        "500"


  1543 *-*      maxshow.=2000      /* Show progress every 2000 recs or
10%          */                                            

       >L>        "2000"


  1544 *-*      minshow.9336.0=250 /* Smaller rec counts for pipelines
fba blocking */                                            

       >L>        "250"


  1545 *-*      maxshow.9336.0=600


       >L>        "600"


  1547 *-*      arg ddr? pack? dtype dsize .


       >>>        "0"


       >>>        "9336"


       >>>        "784"


       >>>        ""


       >.>        ""


  1548 *-*      If dtype='9336'


       >V>        "784"


       >L>        "9336"


       >O>        "0"


  1550 *-*      else


  1551 *-*       drecs=dsize*cyltrk             /* Each record is a
track         */

       >V>         ""


       >V>         "15"


  1551 +++       drecs=dsize*cyltrk             /* Each record is a
track         */

   929 +++     Call SetupProgress useddr rempack diskinfo


   526 +++  Call RestoreDisk


DMSREX476E Error 41 running PIPEDDR EXEC, line 1551: Bad arithmetic
conversion      

------------------------------------------------------------------------
----------------------------------------------------------------------

When attempting to RESTORE of a V-DISK (this weekend):

 

  1550 +++       drecs=dsize*cyltrk             /* Each record is a
track         */

   929 +++     Call SetupProgress useddr rempack diskinfo


   526 +++  Call RestoreDisk


DMSREX476E Error 41 running PIPEDDR EXEC, line 1550: Bad arithmetic
conversion      

 

(maybe because it's FBA?)

 

Quick Fix:

 

SetupProgress:                                                       

Return                                                               

/*------------------------------------------------------------------*

 

 Frank M. Ramaekers Jr.

 

 

Systems Programmer

MCP, MCP+I, MCSE & RHCE

 

American Income Life Insurance Co.

Phone: (254)761-6649

 

1200 Wooded Acres Dr.

Fax: (254)741-5777

 

Waco, Texas  76701

 

 

 


_____________________________________________________ This message contains 
information which is privileged and confidential and is solely for the use of 
the intended recipient. If you are not the intended recipient, be aware that 
any review, disclosure, copying, distribution, or use of the contents of this 
message is strictly prohibited. If you have received this in error, please 
destroy it immediately and notify us at [email protected].

Reply via email to