Comment removed by moderator pending clarification.
However, as this is being written in 2015 most, if not all, customers rely on dynamic APF lists for the vast majority of their authorisation needs. The ‘D PROG,APF’ command can be used to display the current contents of the dynamic APF list:
2015196 02:50:21.56 SNEVIN 00000280 D PROG,APF 2015196 02:50:21.64 SNEVIN 00000080 CSV450I 02.50.21 PROG,APF DISPLAY 398 398 00000080 FORMAT=DYNAMIC 398 00000080 ENTRY VOLUME DSNAME 398 00000080 1 Z13SX1 SYS1.LINKLIB 398 00000080 2 Z13SX1 SYS1.SVCLIB ... 398 00000080 623 *SMS* CMNSUP.CMN710S.SPTDPE.VPROM2.LINKLIB 398 00000080 624 *SMS* CMNSUP.CMN710S.SPTDPE.CPROM.LINKLIB 398 00000080 625 *SMS* CMNSUP.CMN710S.SPTDPE.VPROM1.LINKLIB
Is your library returned? If not, it can be added using something similar to the following command:
//STEPLIB DD DISP=SHR,DSN=CMNSUP.INTL.CMN713.EXITS
// DD DISP=SHR,DSN=CMNSUP.INTL.SER713.LOAD
// DD DISP=SHR,DSN=CMNSUP.INTL.CMN713.LOAD
// DD DISP=SHR,DSN=CMNSUP.INTL.CMN713.NONAPF.LOAD
Even though all programs that issue authorised instructions exist in the top three, authorised libraries in this STEPLIB, the inclusion of the unauthorised ‘CMNSUP.INTL.CMN713.NONAPF.LOAD’ in this concatenation means that no programs will be authorised at execution time. Therefore any request to execute an authorised instruction from any program within this job step will fail with a S047 abend.
//STEP1 EXEC PGM=PGM1
In this situation it is actually PGM1 that must be linked or bound with AC=1, not PGM2. If PGM1 is linked with AC=0 a S047 abend will occur. PGM2’s AC value will have no impact at all in this situation. All relies on PGM1’s AC value.
Hopefully you will never encounter unexplained S047 abends or, if you do, the answer will lie somewhere in this article. Personally I have yet to come across a S047 that cannot be explained by one of the points covered in this article. However, if you believe that you have one, or if you are struggling to diagnose a S047 related to a Serena product, then please feel free to contact Serena Support who will be happy to assist.