Having never played about with windowed subfile programs before, I thought I'd give it a go.
I use a program generator to create my base display file code then 'hack' about with it after there.
My DDS appears to be fine, compiling correctly and looking as I would expect when viewed with SDA, however, when I call my program I get a session/device error when reading from my header format.
Can anyone give me any ideas as I am at a loss here (sorry for the messy code, haven't got round to tidying up the commented out bits yet.)
I use a program generator to create my base display file code then 'hack' about with it after there.
My DDS appears to be fine, compiling correctly and looking as I would expect when viewed with SDA, however, when I call my program I get a session/device error when reading from my header format.
Can anyone give me any ideas as I am at a loss here (sorry for the messy code, haven't got round to tidying up the commented out bits yet.)
Code:
0001 * Display File: MMHELP Maximise Help Text Display 0002 * Source Code Created on 2006/03/06 at 16:00:39 by User LOMASC 0003 * 0004 * Standard Indicator Usage :- 0005 * 01 - Response indicator for all command keys 0006 * 02 - Format level Change Ind (Any data on Subfile - not option field) 0007 * 03 - Set SFLNXTCHG on Subfile record write/update 0008 * 04 - On = SFLCLR, Off = SFLDSP & SFLDSPCTL 0009 * 05 - Reposition field change indicator 0010 * 06 - Switch off HI, for empty sfl records 0011 * 07 - General Protect on all Both type fields 0012 * 08 - Switch on RI PC for all fields, used for file error reporting 0013 * 09 - 19 Specific Format Protect iIndicators 0014 * 20 > 99 Specific Field RI & PC indicators 0015 * 0016 A CA03(01) 0017 A CA01(01) 0018 A CA05(01) 0019 A CA10(01) 0020 A CA12(01) 0021 A CA14(01) 0022 A PRINT 0023 A CHGINPDFT(UL) 0024 A HELP(01) 0025 A DSPSIZ(24 80) 0026 A R CLEARDISP 0027 A ASSUME KEEP 0028 A 1 2' ' 0029 A R HD 0030 A CLRL(*NO) 0031 A OVERLAY 0032 A PUTOVR 0033 A BLINK 0034 A CHANGE(02) 0035 A CSRLOC(UGCRLINE UGCRCOLUMN) 0036 A RTNCSRLOC(&UGCRFORMAT &UGCRFIELD + 0037 A &UGCRFLDPOS) 0038 * 0039 A UGCRLINE 3S 0H TEXT('Returned Cursor Line') 0040 A UGCRCOLUMN 3S 0H TEXT('Returned Cursor Column') 0041 A UGCRFORMAT 10A H TEXT('Cursor in Format') 0042 A UGCRFIELD 10A H TEXT('Cursor in Field') 0043 A UGCRFLDPOS 4S 0H TEXT('Cursor in Field Position') 0044 A HDHIDSFD R H REFFLD(HIDSFD MMHLPI) 0045 A HDHIDSPF R H REFFLD(HIDSPF MMHLPI) 0046 A HDHIPROD R H REFFLD(HIPROD MMHLPI) 0047 A HDHIREF# R H REFFLD(HIREF# MMHLPI) 0048 A HDHITOCD R H REFFLD(HITOCD MMHLPI) 0049 A HOHIDSFD R H REFFLD(HDHIDSFD *SRC) 0050 A HOHIDSPF R H REFFLD(HDHIDSPF *SRC) 0051 A HOHIPROD R H REFFLD(HDHIPROD *SRC) 0052 A HOHIREF# R H REFFLD(HDHIREF# *SRC) 0053 A HOHITOCD R H REFFLD(HDHITOCD *SRC) 0054 A HDINDS 99A H TEXT('Indicator save area') 0055 A HDRRN 9S 0H TEXT('RRN of DB Record') 0056 A 2 2SYSNAME 0057 A O 1 13' Maximise ' 0058 A DSPATR(RI) 0059 A O 1 59' Maximise ' 0060 A DSPATR(RI) 0061 A 1 71DATE EDTCDE(Y) 0062 A UGPROGRAM 10 O 1 2 0063 A UGPGMLIB 10 O 2 70 0064 A O 2 26'Maximise Help Syste+ 0065 A m Display' 0066 A DSPATR(HI UL) 0067 * 0068 A R SFL 0070CA**************************************CLRL(*NO) 0071 A SFL 0072 A 03 SFLNXTCHG 0073 * 0074 A FDHLREF# R H REFFLD(HLREF# MMHLPT) 0075 A FDHLSEQ# R H REFFLD(HLSEQ# MMHLPT) 0076 A FDHLSORO R H REFFLD(HLSORO MMHLPT) 0077 A FDHLTYPE R H REFFLD(HLTYPE MMHLPT) 0078 A FDHLPROD R H REFFLD(HLPROD MMHLPT) 0079 A FOHLREF# R H REFFLD(FDHLREF# *SRC) 0080 A FOHLSEQ# R H REFFLD(FDHLSEQ# *SRC) 0081 A FOHLSORO R H REFFLD(FDHLSORO *SRC) 0082 A FOHLTYPE R H REFFLD(FDHLTYPE *SRC) 0083 A FOHLPROD R H REFFLD(FDHLPROD *SRC) 0084 A SFLRLC 1A H TEXT('Reposition Requested') 0085 A SFLINDS 99A H TEXT('Indicator save area') 0086 A SFLSFC 1A H TEXT('Data Changed Flag') 0087 A SFLRRN 9S 0H TEXT('RRN of DB Record') 0088 A SFLWRN 1A H TEXT('Warning Issued Flag') 0089 A SFLOPT 1A H 0091CA**06**********************************DSPATR(PC) 0093CA FDHLTEXT R O 2 1REFFLD(HLTEXT MMHLPT) 0094 A 08 DSPATR(RI PC) 0095 A N06N08 DSPATR(HI) 0096 A FOHLTEXT R H REFFLD(HLTEXT MMHLPT) 0097 * 0098 A R SFC 0100CA********************************* CLRL(*NO) 0101AA WINDOW(7 18 8 40) 0102 A OVERLAY 0103 A SFLCTL(SFL) 0104 A N04 SFLDSP 0105 A N04 SFLDSPCTL 0106 A 04 SFLCLR 0107 A SFLSIZ(0007) 0108 A SFLPAG(06) 0109 A ROLLUP 0110 A ROLLDOWN 0111 A BLINK 0112 A SFLDROP(CF11) 0113 A SFLMODE(&SFLMODE) 0114 A CHANGE(02) 0115 A CSRLOC(UGCRLINE UGCRCOLUMN) 0116 A RTNCSRLOC(&UGCRFORMAT &UGCRFIELD + 0117 A &UGCRFLDPOS) 0118 * 0119 A SFCSRN 4S 0H SFLRCDNBR 0120 A SFLMODE 1A H 0121 A UGCRLINE 3S 0H TEXT('Returned Cursor Line') 0122 A UGCRCOLUMN 3S 0H TEXT('Returned Cursor Column') 0123 A UGCRFORMAT 10A H TEXT('Cursor in Format') 0124 A UGCRFIELD 10A H TEXT('Cursor in Field') 0125 A UGCRFLDPOS 4S 0H TEXT('Cursor in Field Position') 0126 A SFCINDS 99A H TEXT('Indicator save area') 0127 A SFCRRN 9S 0H TEXT('RRN of DB Record') 0128 A R TR 0129 A CLRL(*NO) 0130 A OVERLAY 0131 A PUTOVR 0132 A BLINK 0133 A CHANGE(02) 0134 A CSRLOC(UGCRLINE UGCRCOLUMN) 0135 A RTNCSRLOC(&UGCRFORMAT &UGCRFIELD + 0136 A &UGCRFLDPOS) 0137 A CF02 0138 A CF04 0139 A CF06 0140 A CF07 0141 A CF08 0142 A CF09 0143 A CF11 0144 A CF13 0145 A CF15 0146 A CF16 0147 A CF17 0148 A CF18 0149 A CF19 0150 A CF20 0151 A CF21 0152 A CF22 0153 A CF23 0154 A CF24 0155 * 0156 A UGCRLINE 3S 0H TEXT('Returned Cursor Line') 0157 A UGCRCOLUMN 3S 0H TEXT('Returned Cursor Column') 0158 A UGCRFORMAT 10A H TEXT('Cursor in Format') 0159 A UGCRFIELD 10A H TEXT('Cursor in Field') 0160 A UGCRFLDPOS 4S 0H TEXT('Cursor in Field Position') 0161 A TRINDS 99A H TEXT('Indicator save area') 0162 A TRRRN 9S 0H TEXT('RRN of DB Record') 0163 A O 23 2'F3=Exit' 0164 A O 23 10'F12=Previous' 0165 * 0166 A R SFLDC 0168CA**************** CLRL(*NO) 0169 A SFL 0170 A 03 SFLNXTCHG 0171 * 0172 A FDHLREF# R H REFFLD(HLREF# MMHLPT) 0173 A FDHLSEQ# R H REFFLD(HLSEQ# MMHLPT) 0174 A FDHLSORO R H REFFLD(HLSORO MMHLPT) 0175 A FDHLTYPE R H REFFLD(HLTYPE MMHLPT) 0176 A FDHLPROD R H REFFLD(HLPROD MMHLPT) 0177 A FOHLREF# R H REFFLD(FDHLREF# *SRC) 0178 A FOHLSEQ# R H REFFLD(FDHLSEQ# *SRC) 0179 A FOHLSORO R H REFFLD(FDHLSORO *SRC) 0180 A FOHLTYPE R H REFFLD(FDHLTYPE *SRC) 0181 A FOHLPROD R H REFFLD(FDHLPROD *SRC) 0182 A SFLDCRLC 1A H TEXT('Reposition Requested') 0183 A SFLDCINDS 99A H TEXT('Indicator save area') 0184 A SFLDCSFC 1A H TEXT('Data Changed Flag') 0185 A SFLDCRRN 9S 0H TEXT('RRN of DB Record') 0186 A SFLDCWRN 1A H TEXT('Warning Issued Flag') 0187 A SFLDCOPT 1A H 0189CA**06**********************************DSPATR(PC) 0190 A FDHLTEXT R O 9 2REFFLD(HLTEXT MMHLPT) 0191 A 08 DSPATR(RI PC) 0192 A N06N08 DSPATR(HI) 0193 A FOHLTEXT R H REFFLD(HLTEXT MMHLPT) 0194 * 0195 A R SFCDCC 0197CA************************ CLRL(*NO) 0198 A OVERLAY 0199 A SFLCTL(SFLDC) 0200 A N04 SFLDSP 0201 A N04 SFLDSPCTL 0202 A 04 SFLCLR 0203 A SFLSIZ(0007) 0204 A SFLPAG(06) 0205 A ROLLUP 0206 A ROLLDOWN 0207 A BLINK 0208 A SFLDROP(CF11) 0209 A SFLMODE(&SFLMODE) 0210 A CHANGE(02) 0211 A CSRLOC(UGCRLINE UGCRCOLUMN) 0212 A RTNCSRLOC(&UGCRFORMAT &UGCRFIELD + 0213 A &UGCRFLDPOS) 0214 * 0215 A SFCDCSRN 4S 0H SFLRCDNBR 0216 A SFLMODE 1A H 0217 A UGCRLINE 3S 0H TEXT('Returned Cursor Line') 0218 A UGCRCOLUMN 3S 0H TEXT('Returned Cursor Column') 0219 A UGCRFORMAT 10A H TEXT('Cursor in Format') 0220 A UGCRFIELD 10A H TEXT('Cursor in Field') 0221 A UGCRFLDPOS 4S 0H TEXT('Cursor in Field Position') 0222 A SFCDCINDS 99A H TEXT('Indicator save area') 0223 A SFCDCRRN 9S 0H TEXT('RRN of DB Record') 0224 A O 8 2'Press Enter to Confirm Delete + 0225 A F12 to Change Choices' DSPATR(HI) 0226 A R SFLPU 0228CA************************************ CLRL(*NO) 0229 A SFL 0230 A 03 SFLNXTCHG 0231 * 0232 A FDHLREF# R H REFFLD(HLREF# MMHLPT) 0233 A FDHLSEQ# R H REFFLD(HLSEQ# MMHLPT) 0234 A FDHLSORO R H REFFLD(HLSORO MMHLPT) 0235 A FDHLTYPE R H REFFLD(HLTYPE MMHLPT) 0236 A FDHLPROD R H REFFLD(HLPROD MMHLPT) 0237 A FOHLREF# R H REFFLD(FDHLREF# *SRC) 0238 A FOHLSEQ# R H REFFLD(FDHLSEQ# *SRC) 0239 A FOHLSORO R H REFFLD(FDHLSORO *SRC) 0240 A FOHLTYPE R H REFFLD(FDHLTYPE *SRC) 0241 A FOHLPROD R H REFFLD(FDHLPROD *SRC) 0242 A SFLPURLC 1A H TEXT('Reposition Requested') 0243 A SFLPUINDS 99A H TEXT('Indicator save area') 0244 A SFLPUSFC 1A H TEXT('Data Changed Flag') 0245 A SFLPURRN 9S 0H TEXT('RRN of DB Record') 0246 A SFLPUWRN 1A H TEXT('Warning Issued Flag') 0247 A SFLPUOPT 1A H 0249CA**06**********************************DSPATR(PC) 0250 A FDHLTEXT R O 9 2REFFLD(HLTEXT MMHLPT) 0251 A 08 DSPATR(RI PC) 0252 A N06N08 DSPATR(HI) 0253 A FOHLTEXT R H REFFLD(HLTEXT MMHLPT) 0254 * 0255 A R SFCPUC 0257CA***************************** CLRL(*NO) 0258 A OVERLAY 0259 A SFLCTL(SFLPU) 0260 A N04 SFLDSP 0261 A N04 SFLDSPCTL 0262 A 04 SFLCLR 0263 A SFLSIZ(0007) 0264 A SFLPAG(06) 0265 A ROLLUP 0266 A ROLLDOWN 0267 A BLINK 0268 A SFLDROP(CF11) 0269 A SFLMODE(&SFLMODE) 0270 A CHANGE(02) 0271 A CSRLOC(UGCRLINE UGCRCOLUMN) 0272 A RTNCSRLOC(&UGCRFORMAT &UGCRFIELD + 0273 A &UGCRFLDPOS) 0274 * 0275 A SFCPUSRN 4S 0H SFLRCDNBR 0276 A SFLMODE 1A H 0277 A UGCRLINE 3S 0H TEXT('Returned Cursor Line') 0278 A UGCRCOLUMN 3S 0H TEXT('Returned Cursor Column') 0279 A UGCRFORMAT 10A H TEXT('Cursor in Format') 0280 A UGCRFIELD 10A H TEXT('Cursor in Field') 0281 A UGCRFLDPOS 4S 0H TEXT('Cursor in Field Position') 0282 A SFCPUINDS 99A H TEXT('Indicator save area') 0283 A SFCPURRN 9S 0H TEXT('RRN of DB Record') 0284 A R MESSAGESFL SFL 0285 A SFLMSGRCD(24) 0286 A UGMSGKEY SFLMSGKEY 0287 A UGPGMQ SFLPGMQ 0288 A R MESSAGECTL SFLCTL(MESSAGESFL) 0289 A OVERLAY 0290 A SFLDSP 0291 A SFLDSPCTL 0292 A SFLINZ 0293 A 99 0294 AON99 SFLEND 0295 A SFLSIZ(10) 0296 A SFLPAG(1) 0297 A CSRLOC(UGCRLINE UGCRCOLUMN) 0298 A UGCRLINE 3S 0H 0299 A UGCRCOLUMN 3S 0H 0300 A UGPGMQUEUE SFLPGMQ
Comment