midrange.com code scratchpad
Name:
Demo QsnSavScr Limit
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
03/06/2026 03:09:57 pm
IP:
Logged
Description:
This code is used to demonstrate a QsnSavScr 7345 byte limitation with 5250 software.

Run the program and press F10 to trigger QsnSavScr
Code:
  1. **FREE
  2. //========================================================================*
  3. // PROGRAM NAME...: TST70ZRG
  4. // AUTHOR.........: Chris Hiebert
  5. // DATE...........: 11/13/2025
  6. // FUNCTION/DESC..: Test Screen
  7. //------------------------------------------------------------------------
  8. //    MODIFICATIONS:
  9. //------------------------------------------------------------------------
  10. // MOD#  PCR#    PGMR   DATE   DESCRIPTION
  11. // /M01               MM/DD/YY Changes...
  12. //========================================================================*
  13. Ctl-Opt OPENOPT(*NOINZOFL) OPTION(*NODEBUGIO:*SRCSTMT);
  14. Ctl-Opt DFTACTGRP(*NO) ACTGRP(*CALLER);
  15.  
  16. DCL-F TST70ZFM WORKSTN(*EXT) USAGE(*INPUT:*OUTPUT) INFDS(DSPFINFDS);
  17. // Data structures
  18. Dcl-C ENTER X'F1';
  19.  
  20. Dcl-Ds DSPFINFDS QUALIFIED;
  21.   Thisdspf        Char(8);
  22.   //* Function Key pressed
  23.   FKey            Char(1) Pos(369);
  24.   //* Max number of sfl recs after done loading
  25.   Maxsflrecs      Int(5) Pos(376);
  26.   //* First sfl rec on visible screen
  27.   Lowrrn          Int(5);
  28.   //* number of sfl records after SFLINZ
  29.   Inzmaxrecs      Int(5);
  30. End-Ds;
  31. Dcl-Ds PGMINF psds;
  32.   ProcStatus *STATUS;
  33.   ProcRoutin *ROUTINE;
  34.   ProcName *PROC;
  35.   ParmCount *PARMS;
  36.   PrmCnt *PARMS;
  37.   MsgErrId        Char(7) Pos(40);
  38.   ProgramLib      Char(10) Pos(81);
  39.   PgmInfErrorMsg Char(80) Pos(091);
  40.   ProgName        Char(10) Pos(334);
  41.   Pgmnam          Char(10) Pos(334);
  42.   JobName         Char(10) Pos(244);
  43.   JobNam          Char(10) Pos(244);
  44.   UserName        Char(10) Pos(254);
  45.   JobUsr          Char(10) Pos(254);
  46.   JobNbr          Zoned(6) Pos(264);
  47.   JobDate         Zoned(6) Pos(270);
  48.   JobDat          Zoned(6) Pos(270);
  49.   ProgDate        Zoned(6) Pos(276);
  50.   PgmDat          Zoned(6) Pos(276);
  51.   ProgTime        Zoned(6) Pos(282);
  52.   PgmTim          Zoned(6) Pos(282);
  53.   CurrentUser
  54.   Char(10) Pos(358);
  55. End-Ds;
  56.  
  57. // *Entry - parameters
  58. DCL-PI TST70ZRG;
  59. END-PI;
  60.  
  61. //---------------------------------------------------------------------
  62. // Stand alone fields
  63. //---------------------------------------------------------------------
  64. DCL-S IDX Int(10);
  65. Dcl-S RestoreScreen Int(10);
  66. Dcl-Ds ReplaceChars;
  67.   alphanumeric Char(62) Inz('0123456789-
  68. ABCDEFGHIJKLMNOPQRSTUVWXYZ-
  69. abcdefghijklmnopqrstuvwxyz');
  70.   Colors  Char(1) Dim(7);
  71.   alphanum Char(1) Dim(62) Pos(1);
  72. End-Ds;
  73. Dcl-S ColorIdx      Int(10);
  74. Dcl-S CharIdx       Int(10);
  75.  
  76. Dcl-ds List;
  77. S2KEY0001 Char(12);
  78. S2KEY0002 Char(12);
  79. S2KEY0003 Char(12);
  80. S2KEY0004 Char(12);
  81. S2KEY0005 Char(12);
  82. S2KEY0006 Char(12);
  83. S2KEY0007 Char(12);
  84. S2KEY0008 Char(12);
  85. S2KEY0009 Char(12);
  86. S2KEY0010 Char(12);
  87. S2KEY0011 Char(12);
  88. S2KEY0012 Char(12);
  89. S2KEY0013 Char(12);
  90. S2KEY0014 Char(12);
  91. S2KEY0015 Char(12);
  92. S2KEY0016 Char(12);
  93. S2KEY0017 Char(12);
  94. S2KEY0018 Char(12);
  95. S2KEY0019 Char(12);
  96. S2KEY0020 Char(12);
  97. S2KEY0021 Char(12);
  98. S2KEY0022 Char(12);
  99. S2KEY0023 Char(12);
  100. S2KEY0024 Char(12);
  101. S2KEY0025 Char(12);
  102. S2KEY0026 Char(12);
  103. S2KEY0027 Char(12);
  104. S2KEY0028 Char(12);
  105. S2KEY0029 Char(12);
  106. S2KEY0030 Char(12);
  107. S2KEY0031 Char(12);
  108. S2KEY0032 Char(12);
  109. S2KEY0033 Char(12);
  110. S2KEY0034 Char(12);
  111. S2KEY0035 Char(12);
  112. S2KEY0036 Char(12);
  113. S2KEY0037 Char(12);
  114. S2KEY0038 Char(12);
  115. S2KEY0039 Char(12);
  116. S2KEY0040 Char(12);
  117. S2KEY0041 Char(12);
  118. S2KEY0042 Char(12);
  119. S2KEY0043 Char(12);
  120. S2KEY0044 Char(12);
  121. S2KEY0045 Char(12);
  122. S2KEY0046 Char(12);
  123. S2KEY0047 Char(12);
  124. S2KEY0048 Char(12);
  125. S2KEY0049 Char(12);
  126. S2KEY0050 Char(12);
  127. S2KEY0051 Char(12);
  128. S2KEY0052 Char(12);
  129. S2KEY0053 Char(12);
  130. S2KEY0054 Char(12);
  131. S2KEY0055 Char(12);
  132. S2KEY0056 Char(12);
  133. S2KEY0057 Char(12);
  134. S2KEY0058 Char(12);
  135. S2KEY0059 Char(12);
  136. S2KEY0060 Char(12);
  137. S2KEY0061 Char(12);
  138. S2KEY0062 Char(12);
  139. S2KEY0063 Char(12);
  140. S2KEY0064 Char(12);
  141. S2KEY0065 Char(12);
  142. S2KEY0066 Char(12);
  143. S2KEY0067 Char(12);
  144. S2KEY0068 Char(12);
  145. S2KEY0069 Char(12);
  146. S2KEY0070 Char(12);
  147. S2KEY0071 Char(12);
  148. S2KEY0072 Char(12);
  149. S2KEY0073 Char(12);
  150. S2KEY0074 Char(12);
  151. S2KEY0075 Char(12);
  152. S2KEY0076 Char(12);
  153. S2KEY0077 Char(12);
  154. S2KEY0078 Char(12);
  155. S2KEY0079 Char(12);
  156. S2KEY0080 Char(12);
  157. S2KEY0081 Char(12);
  158. S2KEY0082 Char(12);
  159. S2KEY0083 Char(12);
  160. S2KEY0084 Char(12);
  161. S2KEY0085 Char(12);
  162. S2KEY0086 Char(12);
  163. S2KEY0087 Char(12);
  164. S2KEY0088 Char(12);
  165. S2KEY0089 Char(12);
  166. S2KEY0090 Char(12);
  167. S2KEY0091 Char(12);
  168. S2KEY0092 Char(12);
  169. S2KEY0093 Char(12);
  170. S2KEY0094 Char(12);
  171. S2KEY0095 Char(12);
  172. S2KEY0096 Char(12);
  173. S2KEY0097 Char(12);
  174. S2KEY0098 Char(12);
  175. S2KEY0099 Char(12);
  176. S2KEY0100 Char(12);
  177. S2KEY0101 Char(12);
  178. S2KEY0102 Char(12);
  179. S2KEY0103 Char(12);
  180. S2KEY0104 Char(12);
  181. S2KEY0105 Char(12);
  182. S2KEY0106 Char(12);
  183. S2KEY0107 Char(12);
  184. S2KEY0108 Char(12);
  185. S2KEY0109 Char(12);
  186. S2KEY0110 Char(12);
  187. S2KEY0111 Char(12);
  188. S2KEY0112 Char(12);
  189. S2KEY0113 Char(12);
  190. S2KEY0114 Char(12);
  191. S2KEY0115 Char(12);
  192. S2KEY0116 Char(12);
  193. S2KEY0117 Char(12);
  194. S2KEY0118 Char(12);
  195. S2KEY0119 Char(12);
  196. S2KEY0120 Char(12);
  197. S2KEY0121 Char(12);
  198. S2KEY0122 Char(12);
  199. S2KEY0123 Char(12);
  200. S2KEY0124 Char(12);
  201. S2KEY0125 Char(12);
  202. S2KEY0126 Char(12);
  203. S2KEY0127 Char(12);
  204. S2KEY0128 Char(12);
  205. S2KEY0129 Char(12);
  206. S2KEY0130 Char(12);
  207. S2KEY0131 Char(12);
  208. S2KEY0132 Char(12);
  209. S2KEY0133 Char(12);
  210. S2KEY0134 Char(12);
  211. S2KEY0135 Char(12);
  212. S2KEY0136 Char(12);
  213. S2KEY0137 Char(12);
  214. S2KEY0138 Char(12);
  215. S2KEY0139 Char(12);
  216. S2KEY0140 Char(12);
  217. S2KEY0141 Char(12);
  218. S2KEY0142 Char(12);
  219. S2KEY0143 Char(12);
  220. S2KEY0144 Char(12);
  221. S2KEY0145 Char(12);
  222. S2KEY0146 Char(12);
  223. S2KEY0147 Char(12);
  224. S2KEY0148 Char(12);
  225. S2KEY0149 Char(12);
  226. S2KEY0150 Char(12);
  227. S2KEY0151 Char(12);
  228. S2KEY0152 Char(12);
  229. S2KEY0153 Char(12);
  230. S2KEY0154 Char(12);
  231. S2KEY0155 Char(12);
  232. S2KEY0156 Char(12);
  233. S2KEY0157 Char(12);
  234. S2KEY0158 Char(12);
  235. S2KEY0159 Char(12);
  236. S2KEY0160 Char(12);
  237. S2KEY0161 Char(12);
  238. S2KEY0162 Char(12);
  239. S2KEY0163 Char(12);
  240. S2KEY0164 Char(12);
  241. S2KEY0165 Char(12);
  242. S2KEY0166 Char(12);
  243. S2KEY0167 Char(12);
  244. S2KEY0168 Char(12);
  245. S2KEY0169 Char(12);
  246. S2KEY0170 Char(12);
  247. S2KEY0171 Char(12);
  248. S2KEY0172 Char(12);
  249. S2KEY0173 Char(12);
  250. S2KEY0174 Char(12);
  251. S2KEY0175 Char(12);
  252. S2KEY0176 Char(12);
  253. S2KEY0177 Char(12);
  254. S2KEY0178 Char(12);
  255. S2KEY0179 Char(12);
  256. S2KEY0180 Char(12);
  257. S2KEY0181 Char(12);
  258. S2KEY0182 Char(12);
  259. S2KEY0183 Char(12);
  260. S2KEY0184 Char(12);
  261. S2KEY0185 Char(12);
  262. S2KEY0186 Char(12);
  263. S2KEY0187 Char(12);
  264. S2KEY0188 Char(12);
  265. S2KEY0189 Char(12);
  266. S2KEY0190 Char(12);
  267. S2KEY0191 Char(12);
  268. S2KEY0192 Char(12);
  269. S2KEY0193 Char(12);
  270. S2KEY0194 Char(12);
  271. S2KEY0195 Char(12);
  272. S2KEY0196 Char(12);
  273. S2KEY0197 Char(12);
  274. S2KEY0198 Char(12);
  275. S2KEY0199 Char(12);
  276. S2KEY0200 Char(12);
  277. S2KEY0201 Char(12);
  278. S2KEY0202 Char(12);
  279. S2KEY0203 Char(12);
  280. S2KEY0204 Char(12);
  281. S2KEY0205 Char(12);
  282. S2KEY0206 Char(12);
  283. S2KEY0207 Char(12);
  284. S2KEY0208 Char(12);
  285. S2KEY0209 Char(12);
  286. S2KEY0210 Char(12);
  287. S2KEY0211 Char(12);
  288. S2KEY0212 Char(12);
  289. S2KEY0213 Char(12);
  290. S2KEY0214 Char(12);
  291. S2KEY0215 Char(12);
  292. S2KEY0216 Char(12);
  293. S2KEY0217 Char(12);
  294. S2KEY0218 Char(12);
  295. S2KEY0219 Char(12);
  296. S2KEY0220 Char(12);
  297. S2KEY0221 Char(12);
  298. S2KEY0222 Char(12);
  299. S2KEY0223 Char(12);
  300. S2KEY0224 Char(12);
  301. S2KEY0225 Char(12);
  302. S2KEY0226 Char(12);
  303. S2KEY0227 Char(12);
  304. S2KEY0228 Char(12);
  305. S2KEY0229 Char(12);
  306. S2KEY0230 Char(12);
  307. S2KEY0231 Char(12);
  308. S2KEY0232 Char(12);
  309. S2KEY0233 Char(12);
  310. S2KEY0234 Char(12);
  311. S2KEY0235 Char(12);
  312. S2KEY0236 Char(12);
  313. S2KEY0237 Char(12);
  314. S2KEY0238 Char(12);
  315. S2KEY0239 Char(12);
  316. S2KEY0240 Char(12);
  317. S2KEY0241 Char(12);
  318. S2KEY0242 Char(12);
  319. S2KEY0243 Char(12);
  320. S2KEY0244;
  321. allKeys Char(12) Pos(1) dim(244);
  322. End-ds;
  323.  
  324. //-----------------------------------------------------------------------
  325. // Main Routine
  326. //-----------------------------------------------------------------------
  327.  
  328. EXSR SCREEN;
  329. EXSR EXIT;
  330.  
  331. //---------------------------------------------------------------------
  332. // Exit subroutine
  333. //---------------------------------------------------------------------
  334. BEGSR EXIT;
  335.  
  336.   *INLR = *ON;
  337.   RETURN;
  338.  
  339. ENDSR;
  340. //---------------------------------------------------------------------
  341. // Screen subroutine
  342. //---------------------------------------------------------------------
  343. BEGSR SCREEN;
  344.  
  345.   DOU *INKC;
  346.  
  347.     EXFMT SCNMNT2;
  348.  
  349.     SELECT;
  350.       // F3=Exit
  351.     WHEN *INKC;
  352.       LEAVE;
  353.  
  354.       // F12=Cancel
  355.     WHEN *INKL;
  356.       LEAVE;
  357.  
  358.     ENDSL;
  359.  
  360.     SELECT;
  361.       // F10=Update
  362.     WHEN *INKJ;
  363.       RestoreScreen = SaveScreen();
  364.  
  365.       // Enter
  366.     WHEN DSPFINFDS.FKEY = ENTER;
  367.     ENDSL;
  368.  
  369.     For Idx = 1 to %Elem( allkeys );
  370.       BuildText( allkeys(IDX) : %Size( allkeys(IDX) ) );
  371.     Endfor;
  372.  
  373.   ENDDO;
  374.  
  375. ENDSR;
  376. //---------------------------------------------------------------------
  377. // Initialization subroutine
  378. //---------------------------------------------------------------------
  379. BEGSR *INZSR;
  380.   CMPNAM = *all'Test ';
  381.   PGMDESC = *all'Test ';
  382.   Colors(1) = X'20';
  383.   Colors(2) = X'3A';
  384.   Colors(3) = X'38';
  385.   Colors(4) = X'28';
  386.   Colors(5) = X'30';
  387.   Colors(6) = X'22';
  388.   Colors(7) = X'32';
  389. ENDSR;
  390.  
  391. Dcl-Proc BuildText;
  392.   Dcl-Pi *N;
  393.     Field  Char(32740) Options(*Varsize);
  394.     FieldSize Int(10) Const;
  395.   End-pi;
  396.   Dcl-s Pos INT(10);
  397.   For pos = 1 to FieldSize;
  398.     If %Rem(Pos:2)= 0;
  399.       %Subst( Field : Pos : 1 ) = NextChar( Charidx );
  400.     Else;
  401.       %Subst( Field : Pos : 1 ) = NextColor( ColorIdx );
  402.     Endif;
  403.   Endfor;
  404. End-proc;
  405.  
  406. Dcl-Proc NextChar;
  407.   Dcl-Pi *N Char(1);
  408.     index Int(10);
  409.   End-pi;
  410.   Index = %Rem( Index : %Elem(Alphanum) ) + 1;
  411.   Return alphanum(index);
  412. End-proc;
  413.  
  414. Dcl-Proc NextColor;
  415.   Dcl-Pi *N Char(1);
  416.     index Int(10);
  417.   End-pi;
  418.   Index = %Rem( Index : %Elem(Colors) ) + 1;
  419.   Return Colors(index);
  420. End-proc;
  421.  
  422.  
  423. Dcl-Proc SaveScreen;
  424.   Dcl-Pi *N Int(10);
  425.   End-pi;
  426. // Procedure: QsnSavScr         Save Screen
  427. Dcl-Pr QsnSavScr Int(10) extproc('QsnSavScr');
  428.   SavedCmdBuff Int(10) options(*omit);
  429.   cmdbuf Int(10) const options(*omit);
  430.   LowEnvHandle Int(10) CONST OPTIONS(*OMIT);
  431.   ErrorCode Char(32767) options(*omit: *varsize);
  432. End-Pr;
  433. Dcl-Ds Apierrords QUALIFIED;
  434.   Bytespass       Int(10) INZ(%SIZE(APIERRORDS));
  435.   Bytesavail      Int(10) INZ(*ZERO);
  436.   MsgID           Char(7) INZ(*BLANKS);
  437.   *N              Char(1) INZ(X'00');
  438.   MsgDta          Char(256) INZ(*BLANKS);
  439. End-Ds;
  440. Dcl-Ds DSMErrorDS LIKEDS(Apierrords);
  441. Dcl-S CmdBuffer Int(10);
  442.   DSMErrorDS = *aLLx'00';
  443.   DSMErrorDS.Bytespass = %Size( DSMErrorDS);
  444.   CmdBuffer = QsnSavScr( *Omit :*Omit :*Omit :DSMErrorDS );
  445.   Return CmdBuffer;
  446. End-proc; 
  447.  
  448.      A*%%TS  DD  20251113  091824  PGCH        REL-V7R5    RDI
  449.      A*%%FD Test Screen
  450.      A*%%EC
  451.      A                                      DSPSIZ(27 132 *DS4)
  452.      A                                      HOME
  453.      A                                      PRINT
  454.      A                                      WDWBORDER((*COLOR BLU) (*DSPATR RI))
  455.      A                                      CF01
  456.      A                                      CF02
  457.      A                                      CA03
  458.      A                                      CF04
  459.      A                                      CF05
  460.      A                                      CF06
  461.      A                                      CF07
  462.      A                                      CF08
  463.      A                                      CF09
  464.      A                                      CF10
  465.      A                                      CF11
  466.      A                                      CA12
  467.      A                                      CF13
  468.      A                                      CF14
  469.      A                                      CF15
  470.      A                                      CF16
  471.      A                                      CF17
  472.      A                                      CF18
  473.      A                                      CF19
  474.      A                                      CF20
  475.      A                                      CF21
  476.      A                                      CF22
  477.      A                                      CF23
  478.      A                                      CF24
  479.      A          R SCNMNT2
  480.      A                                  1  2DATE(*SYS *YY)
  481.      A                                      EDTCDE(Y)
  482.      A                                      COLOR(WHT)
  483.      A            CMPNAM       109A  O  1 13COLOR(WHT)
  484.      A            PGMNAM        10A  O  1123COLOR(WHT)
  485.      A                                  2  2TIME
  486.      A                                      COLOR(WHT)
  487.      A            PGMDESC      109A  O  2 13COLOR(WHT)
  488.      A                                  2123USER
  489.      A                                      COLOR(WHT)
  490.      A                                  3  2SYSNAME
  491.      A                                      COLOR(WHT)
  492.      A            JOBNAM        10A  O  3123COLOR(WHT)
  493.      A            S2KEY0001     12A  B  4  2
  494.      A            S2KEY0002     12A  B    +1
  495.      A            S2KEY0003     12A  B    +1
  496.      A            S2KEY0004     12A  B    +1
  497.      A            S2KEY0005     12A  B    +1
  498.      A            S2KEY0006     12A  B    +1
  499.      A            S2KEY0007     12A  B    +1
  500.      A            S2KEY0008     12A  B    +1
  501.      A            S2KEY0009     12A  B    +1
  502.      A            S2KEY0010     12A  B    +1
  503.      A            S2KEY0011     12A  B    +1
  504.      A            S2KEY0012     12A  B    +1
  505.      A            S2KEY0013     12A  B    +1
  506.      A            S2KEY0014     12A  B    +1
  507.      A            S2KEY0015     12A  B    +1
  508.      A            S2KEY0016     12A  B    +1
  509.      A            S2KEY0017     12A  B    +1
  510.      A            S2KEY0018     12A  B    +1
  511.      A            S2KEY0019     12A  B    +1
  512.      A            S2KEY0020     12A  B    +1
  513.      A            S2KEY0021     12A  B    +1
  514.      A            S2KEY0022     12A  B    +1
  515.      A            S2KEY0023     12A  B    +1
  516.      A            S2KEY0024     12A  B    +1
  517.      A            S2KEY0025     12A  B    +1
  518.      A            S2KEY0026     12A  B    +1
  519.      A            S2KEY0027     12A  B    +1
  520.      A            S2KEY0028     12A  B    +1
  521.      A            S2KEY0029     12A  B    +1
  522.      A            S2KEY0030     12A  B    +1
  523.      A            S2KEY0031     12A  B    +1
  524.      A            S2KEY0032     12A  B    +1
  525.      A            S2KEY0033     12A  B    +1
  526.      A            S2KEY0034     12A  B    +1
  527.      A            S2KEY0035     12A  B    +1
  528.      A            S2KEY0036     12A  B    +1
  529.      A            S2KEY0037     12A  B    +1
  530.      A            S2KEY0038     12A  B    +1
  531.      A            S2KEY0039     12A  B    +1
  532.      A            S2KEY0040     12A  B    +1
  533.      A            S2KEY0041     12A  B    +1
  534.      A            S2KEY0042     12A  B    +1
  535.      A            S2KEY0043     12A  B    +1
  536.      A            S2KEY0044     12A  B    +1
  537.      A            S2KEY0045     12A  B    +1
  538.      A            S2KEY0046     12A  B    +1
  539.      A            S2KEY0047     12A  B    +1
  540.      A            S2KEY0048     12A  B    +1
  541.      A            S2KEY0049     12A  B    +1
  542.      A            S2KEY0050     12A  B    +1
  543.      A            S2KEY0051     12A  B    +1
  544.      A            S2KEY0052     12A  B    +1
  545.      A            S2KEY0053     12A  B    +1
  546.      A            S2KEY0054     12A  B    +1
  547.      A            S2KEY0055     12A  B    +1
  548.      A            S2KEY0056     12A  B    +1
  549.      A            S2KEY0057     12A  B    +1
  550.      A            S2KEY0058     12A  B    +1
  551.      A            S2KEY0059     12A  B    +1
  552.      A            S2KEY0060     12A  B    +1
  553.      A            S2KEY0061     12A  B    +1
  554.      A            S2KEY0062     12A  B    +1
  555.      A            S2KEY0063     12A  B    +1
  556.      A            S2KEY0064     12A  B    +1
  557.      A            S2KEY0065     12A  B    +1
  558.      A            S2KEY0066     12A  B    +1
  559.      A            S2KEY0067     12A  B    +1
  560.      A            S2KEY0068     12A  B    +1
  561.      A            S2KEY0069     12A  B    +1
  562.      A            S2KEY0070     12A  B    +1
  563.      A            S2KEY0071     12A  B    +1
  564.      A            S2KEY0072     12A  B    +1
  565.      A            S2KEY0073     12A  B    +1
  566.      A            S2KEY0074     12A  B    +1
  567.      A            S2KEY0075     12A  B    +1
  568.      A            S2KEY0076     12A  B    +1
  569.      A            S2KEY0077     12A  B    +1
  570.      A            S2KEY0078     12A  B    +1
  571.      A            S2KEY0079     12A  B    +1
  572.      A            S2KEY0080     12A  B    +1
  573.      A            S2KEY0081     12A  B    +1
  574.      A            S2KEY0082     12A  B    +1
  575.      A            S2KEY0083     12A  B    +1
  576.      A            S2KEY0084     12A  B    +1
  577.      A            S2KEY0085     12A  B    +1
  578.      A            S2KEY0086     12A  B    +1
  579.      A            S2KEY0087     12A  B    +1
  580.      A            S2KEY0088     12A  B    +1
  581.      A            S2KEY0089     12A  B    +1
  582.      A            S2KEY0090     12A  B    +1
  583.      A            S2KEY0091     12A  B    +1
  584.      A            S2KEY0092     12A  B    +1
  585.      A            S2KEY0093     12A  B    +1
  586.      A            S2KEY0094     12A  B    +1
  587.      A            S2KEY0095     12A  B    +1
  588.      A            S2KEY0096     12A  B    +1
  589.      A            S2KEY0097     12A  B    +1
  590.      A            S2KEY0098     12A  B    +1
  591.      A            S2KEY0099     12A  B    +1
  592.      A            S2KEY0100     12A  B    +1
  593.      A            S2KEY0101     12A  B    +1
  594.      A            S2KEY0102     12A  B    +1
  595.      A            S2KEY0103     12A  B    +1
  596.      A            S2KEY0104     12A  B    +1
  597.      A            S2KEY0105     12A  B    +1
  598.      A            S2KEY0106     12A  B    +1
  599.      A            S2KEY0107     12A  B    +1
  600.      A            S2KEY0108     12A  B    +1
  601.      A            S2KEY0109     12A  B    +1
  602.      A            S2KEY0110     12A  B    +1
  603.      A            S2KEY0111     12A  B    +1
  604.      A            S2KEY0112     12A  B    +1
  605.      A            S2KEY0113     12A  B    +1
  606.      A            S2KEY0114     12A  B    +1
  607.      A            S2KEY0115     12A  B    +1
  608.      A            S2KEY0116     12A  B    +1
  609.      A            S2KEY0117     12A  B    +1
  610.      A            S2KEY0118     12A  B    +1
  611.      A            S2KEY0119     12A  B    +1
  612.      A            S2KEY0120     12A  B    +1
  613.      A            S2KEY0121     12A  B    +1
  614.      A            S2KEY0122     12A  B    +1
  615.      A            S2KEY0123     12A  B    +1
  616.      A            S2KEY0124     12A  B    +1
  617.      A            S2KEY0125     12A  B    +1
  618.      A            S2KEY0126     12A  B    +1
  619.      A            S2KEY0127     12A  B    +1
  620.      A            S2KEY0128     12A  B    +1
  621.      A            S2KEY0129     12A  B    +1
  622.      A            S2KEY0130     12A  B    +1
  623.      A            S2KEY0131     12A  B    +1
  624.      A            S2KEY0132     12A  B    +1
  625.      A            S2KEY0133     12A  B    +1
  626.      A            S2KEY0134     12A  B    +1
  627.      A            S2KEY0135     12A  B    +1
  628.      A            S2KEY0136     12A  B    +1
  629.      A            S2KEY0137     12A  B    +1
  630.      A            S2KEY0138     12A  B    +1
  631.      A            S2KEY0139     12A  B    +1
  632.      A            S2KEY0140     12A  B    +1
  633.      A            S2KEY0141     12A  B    +1
  634.      A            S2KEY0142     12A  B    +1
  635.      A            S2KEY0143     12A  B    +1
  636.      A            S2KEY0144     12A  B    +1
  637.      A            S2KEY0145     12A  B    +1
  638.      A            S2KEY0146     12A  B    +1
  639.      A            S2KEY0147     12A  B    +1
  640.      A            S2KEY0148     12A  B    +1
  641.      A            S2KEY0149     12A  B    +1
  642.      A            S2KEY0150     12A  B    +1
  643.      A            S2KEY0151     12A  B    +1
  644.      A            S2KEY0152     12A  B    +1
  645.      A            S2KEY0153     12A  B    +1
  646.      A            S2KEY0154     12A  B    +1
  647.      A            S2KEY0155     12A  B    +1
  648.      A            S2KEY0156     12A  B    +1
  649.      A            S2KEY0157     12A  B    +1
  650.      A            S2KEY0158     12A  B    +1
  651.      A            S2KEY0159     12A  B    +1
  652.      A            S2KEY0160     12A  B    +1
  653.      A            S2KEY0161     12A  B    +1
  654.      A            S2KEY0162     12A  B    +1
  655.      A            S2KEY0163     12A  B    +1
  656.      A            S2KEY0164     12A  B    +1
  657.      A            S2KEY0165     12A  B    +1
  658.      A            S2KEY0166     12A  B    +1
  659.      A            S2KEY0167     12A  B    +1
  660.      A            S2KEY0168     12A  B    +1
  661.      A            S2KEY0169     12A  B    +1
  662.      A            S2KEY0170     12A  B    +1
  663.      A            S2KEY0171     12A  B    +1
  664.      A            S2KEY0172     12A  B    +1
  665.      A            S2KEY0173     12A  B    +1
  666.      A            S2KEY0174     12A  B    +1
  667.      A            S2KEY0175     12A  B    +1
  668.      A            S2KEY0176     12A  B    +1
  669.      A            S2KEY0177     12A  B    +1
  670.      A            S2KEY0178     12A  B    +1
  671.      A            S2KEY0179     12A  B    +1
  672.      A            S2KEY0180     12A  B    +1
  673.      A            S2KEY0181     12A  B    +1
  674.      A            S2KEY0182     12A  B    +1
  675.      A            S2KEY0183     12A  B    +1
  676.      A            S2KEY0184     12A  B    +1
  677.      A            S2KEY0185     12A  B    +1
  678.      A            S2KEY0186     12A  B    +1
  679.      A            S2KEY0187     12A  B    +1
  680.      A            S2KEY0188     12A  B    +1
  681.      A            S2KEY0189     12A  B    +1
  682.      A            S2KEY0190     12A  B    +1
  683.      A            S2KEY0191     12A  B    +1
  684.      A            S2KEY0192     12A  B    +1
  685.      A            S2KEY0193     12A  B    +1
  686.      A            S2KEY0194     12A  B    +1
  687.      A            S2KEY0195     12A  B    +1
  688.      A            S2KEY0196     12A  B    +1
  689.      A            S2KEY0197     12A  B    +1
  690.      A            S2KEY0198     12A  B    +1
  691.      A            S2KEY0199     12A  B    +1
  692.      A            S2KEY0200     12A  B    +1
  693.      A            S2KEY0201     12A  B    +1
  694.      A            S2KEY0202     12A  B    +1
  695.      A            S2KEY0203     12A  B    +1
  696.      A            S2KEY0204     12A  B    +1
  697.      A            S2KEY0205     12A  B    +1
  698.      A            S2KEY0206     12A  B    +1
  699.      A            S2KEY0207     12A  B    +1
  700.      A            S2KEY0208     12A  B    +1
  701.      A            S2KEY0209     12A  B    +1
  702.      A            S2KEY0210     12A  B    +1
  703.      A            S2KEY0211     12A  B    +1
  704.      A            S2KEY0212     12A  B    +1
  705.      A            S2KEY0213     12A  B    +1
  706.      A            S2KEY0214     12A  B    +1
  707.      A            S2KEY0215     12A  B    +1
  708.      A            S2KEY0216     12A  B    +1
  709.      A            S2KEY0217     12A  B    +1
  710.      A            S2KEY0218     12A  B    +1
  711.      A            S2KEY0219     12A  B    +1
  712.      A            S2KEY0220     12A  B    +1
  713.      A            S2KEY0221     12A  B    +1
  714.      A            S2KEY0222     12A  B    +1
  715.      A            S2KEY0223     12A  B    +1
  716.      A            S2KEY0224     12A  B    +1
  717.      A            S2KEY0225     12A  B    +1
  718.      A            S2KEY0226     12A  B    +1
  719.      A            S2KEY0227     12A  B    +1
  720.      A            S2KEY0228     12A  B    +1
  721.      A            S2KEY0229     12A  B    +1
  722.      A            S2KEY0230     12A  B    +1
  723.      A            S2KEY0231     12A  B    +1
  724.      A            S2KEY0232     12A  B    +1
  725.      A            S2KEY0233     12A  B    +1
  726.      A            S2KEY0234     12A  B    +1
  727.      A            S2KEY0235     12A  B    +1
  728.      A            S2KEY0236     12A  B    +1
  729.      A            S2KEY0237     12A  B    +1
  730.      A            S2KEY0238     12A  B    +1
  731.      A            S2KEY0239     12A  B    +1
  732.      A            S2KEY0240     12A  B    +1
  733.      A            S2KEY0241     12A  B    +1
  734.      A            S2KEY0242     12A  B    +1
  735.      A            S2KEY0243     12A  B    +1
  736.      A            S2KEY0244      8A  B    +1
  737.      A*  Message Subfile
  738.      A                                  3 12'F3=Exit  F10=Save(error)'
  739.      A                                      COLOR(YLW)
  740.      A*%%RS+<record-sequences>
  741.      A*%%RS+ <sequence name="SCNMNT">
  742.      A*%%RS+  <device type="display" width="132" height="27" />
  743.      A*%%RS+  <record-write record-format="SCNMNT" />
  744.      A*%%RS+ </sequence>
  745.      A*%%RS </record-sequences> 
© 2004-2019 by midrange.com generated in 0.017s valid xhtml & css