RE: CPF5090 on CPYF

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

Zak:

Overkill? Perhaps, but that depends on how general you want to make the whole 
process. In a fairly simple sense, this is the basic form:

   dcl   &qfile         *char      20
   dcl   &file          *char      10  value( 'MYLF' )
   dcl   &lib           *char      10  value( 'MYLIB' )

   dcl   &rcvvar        *char    1024

   dcl   &held          *char       1
   dcl   &valid         *char       1

   chgvar    &qfile       ( &file *cat &lib )

Chk_Sts:

   call  QUSRMBRD         ( +
                            &rcvvar                 +
                            x'00000400'             +
                            'MBRD0300'              +
                            &qfile                  +
                            '*FIRST    '            +
                            '0'                     +
                            x'0000000000000000'     +
                          )

   chgvar    &valid          %sst( &rcvvar    446   1 )
   chgvar    &held           %sst( &rcvvar    447   1 )

   if  ( &held   *eq '1' *or                          +
         &valid  *eq 'N' )       do

      dlyjob    10
      goto      Chk_Sts

   enddo

Now, you can (probably should) extend this by using RPG rather than CL, by 
making this a module/procedure, by making &file and &lib parms to the 
procedure, by processing specific members rather than *FIRST, by adding error 
handling, by using the offset value to find &held and &valid, by having 
separate tests for &held and &valid, by adding a loop counter probably with 
some external feedback, etc., etc.; but if you're needing a CL program anyway, 
you might as well create a useful procedure.

Tom Liotta

midrange-l-request@midrange.com wrote:

>   2. RE: CPF5090 on CPYF
>
>Thanks, Tom. I think this will be overkill in this instance. I'm moving the 
>CPYF to a CL, MONMSG on CPF5090 and loop.
>
>> -----Original Message-----
>> 
>> I suggest you call the QUSRMBRD (Retrieve Member Description) 
>> API before issuing CPYF. Look at format MBRD0300 for the 
>> Access path valid and Access path held fields. Loop on the 
>> QUSRMBRD call with a reasonable DLYJOB each time. Don't 
>> continue to the CPYF until the AP shows a good state.
>> 
>> >I'm getting CPF5090: "Unique access path problems prevent 
>> updates to member G1CMST."
>> >
>> >I understand why I'm getting this message, that the access 
>> path has not finished being rebuilt on this PF that was just 
>> restored that I'm trying to copy data into. What I don't 
>> understand is how I can wait. Anything besides DLYJOB and 
>> try, try again?

-- 
-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
The NEW Netscape 7.0 browser is now available. Upgrade now! 
http://channels.netscape.com/ns/browsers/download.jsp 

Get your own FREE, personal Netscape Mail account today at 
http://webmail.netscape.com/