The only place those *proc, *status values are recognized is in the SDS
datasructure. When you are passing them to the other program as a DS it
doesn't know what to do with them. Change your definitions as below and it
should work fine

Dwight

****************************************************************
* Program Status Data Structure
****************************************************************
D MYPSDS         SDS
D  Prog_Name              1     10
Procedure Name
D  PGM_Status            11     15S 0
Status Code
D  Prv_Status            16     20S 0
Previous Status
D  Line_Num              21     28
Src List Line Num
D  Routine               29     36
Routine Name
D  Parms                 37     39S 0
Num Passed Parms
D  Excp_Type             40     42
Exception Type
D  Excp_Num              43     46
Exception Number

D  PGM_LIB               81     90
Program Library
D  Excp_Data             91    170
Exception Date
D  Excp_ID              171    174
Exception ID
D  Date                 191    198
Date
D  Year                 199    200S 0
Year
D  Last_File            201    208
Last File Used
D  File_Info            209    243
File error info
D  Job_Name             244    253
Job Name
D  User                 254    263
User Name
D  Job_Num              264    269S 0
Job Number
D  Job_Date             270    275S 0
Job Date
D  Run_Date             276    281S 0
Run Date
D  Crt_Date             288    293
Create Date
D  Crt_Time             294    299
Create Time
D  Cpl_Level            300    303
Compiler Level
D  Src_File             304    313
Source File
D  Src_Lib              314    323
Source Library
D  Src_Mbr              324    333
Source Member
D  Proc_Pgm             334    343
Pgm Proc is in
D  Proc_Mod             344    353
Mod Proc is in




As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.