Charles K. Clarkson wrote:
> From: Wagner, David --- Senior Programmer Analyst --- WGO <> wrote:
>
>> I have been working on thie script to take MVS
>> JCl/Proc's and bring them together in a single output. I
>> parsing out the DSN ( data file name ) and then attempting to
>> determine if input, output or delete.
>>
>> Here is the code ( quite large unforunately ).
>
> But not large enough. I think you need to give a working
> sample which shows the problem you are having. The code you
> gave has at least one syntax error. Your example should be
> something we can run and duplicate the problem you are having.
> This means you'll need to supply some of the input data as well.
>
> [snip]
>> $MyWrkId++ if ( (! $MyHitDisp) or $MyNeedLRECL ) );
Sorry about that, but I cut and copied. Yes. A working copy would be
the correct method, but it was going to be too large and it really bothered me
that the code was not working as it should. So I made one change, I moved the
data to $_ and for two of the regex's within the block, I removed
$'MyWorka[$MyWrkId] =~' , so they would be going against $_ and everything
worked as it should then. No longer was it failing on the regex, but working as
it should.
What I had was an outer loop that I was reading from the array @WyWorka
and moving to $_. I was then doing a number regex's looking for data. On this
one, it had initially been just pulling the DSN and no more, but one of the
developers I showed the data to asked if possible to determine if input,
output, deleting and if output what is the size of the record. So I did the
while loop using another index, but here is where it would fail. SO as I
stated above, I moved my entry to $_ ( since next processing went again to the
outer loop and $_ was not used again) and modified the other two regexs to go
against. I ran a difference program and the only changes made and it now
works. Why? I don't know, but for this one, I will leave it alone and go from
there.
Again, thanks for taking the time to look.
>
> The line above has an extra ')' init.
>
>
> HTH,
>
> Charles K. Clarkson
> --
> Mobile Homes Specialist
> 254 968-8328
*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
