PH01100: CUSTOMER IS USING THE FILE MANAGER SETC() FUNCTION AND IT IS NOTAS DOCUMENTED IF RECSIN() < 1.

APAR status

• Closed as documentation error.

Error description

• Customer is using the File Manager SETC() function and it is not
  working as documented  if RECSIN() < 1
  
  "recsin() < 1" not performing the SETC as expected
  Example 1 of the SETC external REXX function in Chapter 18.
  Functions of the User's Guide and Reference clearly shows an
  example of using  SETC before any input records are read, in
  the same fashion.
  

Local fix

• The RECSIN() the first time through will be 1 and hence the
  MYVAR
  variable will not be set. This results in the following:
  
    (       )
    404444445
    D0000000D
    ---------
    (AAAAAAA)
    4CCCCCCC5
    D1111111D
  
  Note the low value (x'00') is since the &MYVAR is not
  initialized.
  
  Running the following:
  
    $$FILEM SET PAD=' '
    $$FILEM DSC PROC=*
  
    *FASTREXX
  
    IF RECSIN() = 1 THEN SETC('MYVAR','YYYYYYY')
    SET_OLEN(0) OVLY_OUT('(') OVLY_OUT('&MYVAR',,7) OVLY_OUT(')')
  WRITE()
    SETC('MYVAR','&ZINREC(2:7)')
    RETURN 'DROP'
  
    *EOFPROC
    SET_OLEN(0) OVLY_OUT('(') OVLY_OUT('&MYVAR',,7) OVLY_OUT(')')
  WRITE()
  
   - - - - - - - - - - - - - - - - - - - - - - -  - - - - - -
  
  will result in the following:
  
   (YYYYYYY)
   (AAAAAAA)
  
  The documentation for the SETC command in Example 1 is incorrect
  as it
  specifies "If RECSIN() <= 0", which would always be false. Can
  you
  please raise a Documentation APAR to resolve this issue?
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All File Manager users.                      *
  ****************************************************************
  * PROBLEM DESCRIPTION: The example for the SETC External Rexx  *
  *                      function is incorrect.                  *
  ****************************************************************
  * RECOMMENDATION: Obtain the latest copy of the documentation. *
  ****************************************************************
  The example for the SETC external REXX function incorrectly
  specifies "If RECSIN() <= 0". RECSIN will be 1 reading the 1st
  record, so this expression will always be false.
  

Problem conclusion

• The IBM File Manager for z/OS User's Guide and Reference is
  updated to correct the coding error in the SETC example.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

Applicable component levels