I have an external DS defined on my program. I am doing a READE operation on this file and am passing it as parameter to another program. After returning from the called program,
my program again does a READE where it is failing with CPF511D error. Joblog says Parameter integrity error occurred with reason code .
Some code for reference...below is the code from calling program
D GetXXX PR ExtPgm('Pgm1') D pMvt LikeDs(FileDS) D wType 35A D wNarr 150A D FileDS E DS ExtName(FileA) C Key ReadE FileA C CallP GetTrnTyp(FileDS:wType:wNarr) *********some code here C Key ReadE FileA --->
Here it fails...below is the declaration part of called program:
Pgm1 D FileDS E DS ExtName(FileA) D Main PR ExtPgm(''PGM1') D pMVT LikeDS(FileDS) D pNarr 150A D pType 35A
Please give some input to understand the reason of error.
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!