I set DCBOFPPC before the OPEN.

 DCB after open
 000224D8          00000000 00000000 01D00000 00F43026 002FE5A2 05025C70 
00004000 00027E08  *........ }...4  . Vs  * .. .. = *
 000224F8          02010580 50000000 00A44848 008C4064 1AE30E68 00CA99F8 
0A018240 020903E8  *    &....u  .    T  . r8  b    Y*
 00022518          30013030 00027E78 00000000 00000000 000000C8 00000000 
00000000 80E37A58  *    . = ...........H........ T: *

DCBOFLGS is at X'30'. 
At x'30', the value is x'1A'. The value of DCBOFPPC is X'08'.
This means that the bit is on.




DCB prior to reread
 000224D8          00000000 00000000 01D10000 00F43026 002FE5A2 05025C70 
00004000 00027390  *........ J...4  . Vs  * .. ..   *
 000224F8          02010580 5000F208 00B84848 008C5A6C 1AE30E68 00CA99F8 
0A018240 020903E8  *    &.2 .   . !% T  . r8  b    Y*
 00022518          30013030 00027400 00000000 00000000 000000C8 00000000 
00000000 80E37A58  *    .  ............H........ T: *

At x'30', the value is x'1A'. DCBOFPPC is on.

Regards, Pierre.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to