Sqlrpgle four in the use of quotation marks: Operating Systems

Obicn

Sqlrpgle four in the use of quotation marks

Through a cursor fetch cardstr
[Code: 1:03876693 e6] / free
Cardstr = 'select cdno from dtalib / kwj where +
Substr (cdno, 9,1) = ';
Cardstr =% trimr (cardstr) +''''+ v + @ type'''';
Cardstr =% trimr (cardstr) + 'and';
Cardstr =% trimr (cardstr) + 'substr (cdno,';
Cardstr =% trimr (cardstr) +% trim (v @ posi);
Cardstr =% trimr (cardstr) + ',' +% char (% len (% trim (v @ luck)));
Cardstr =% trimr (cardstr) + ') =' +''''+% trim (v @ luck) +'''';
/ End-free [/ code: 1:03876693 e6]

Features
View auspicious numbers of fuzzy features, such as identifying numbers from 11, the auspicious number for 8888 cards.
V @ type is the type of card, the nine numbers can be judged.
V @ posi auspicious number is the starting position, for example, 11.
V @ luck is auspicious number, such as 8888.

Variable definitions
[Code: 1:03876693 e6] DV @ LUCK S 8A INZ (* blanks)
DV @ TYPE S 1A
DV @ POSI S 2a INZ (* blanks)
DCARDSTR S 1024a inz (* blanks) [/ code: 1:03876693 e6]

If the number is 10 million-a record for sqlrpgle Fuzzy will be very slow, so if the cause of C / S is not suitable for the transaction. Of course, the use of rpgle more slowly. I was in the 640 width=100% cellspacing="0" cellpadding="0" align=center style='border-collapse: collapse; WORD-BREAK: break-all'> Pl421 back in :2005-03-25 17:19:41 Does not support free format .....

City back in the snow billion :2005-03-25 17:25:24 This is the standard assignments, and can fully into the standard format, so I have is to look good.

60133056 back in :2005-03-26 00:03:03 Concerned about learning

Fpoise back in :2005-03-26 11:55:44 Learning

City back in the snow billion :2005-03-26 13:33:54 Like the way it seems to this different from the past have been posted, I had not posted.

Pl421 back in :2005-03-27 20:16:06 Version of the problem is just, I do not support freedom of how the format miles.

City back in the snow billion :2005-03-28 01:21:57 5.1 seems to support, I was 5.1.
Personally think that / free is to look good, can not use / free.

Nhxingliang back in :2005-03-28 16:58:15 Good

Comment

RPG IV how to embed SQL statements?: SQL is normative, maintainability, readability, and so> If efficiency can be tolerated, in order to improve the maintainability of the procedures proposed to RPGIV embedded SQL data processing. Wo..
How prohibited root users telnet landing?: Thank you! Liangweijun back in :2002-04-18 19:17:26 Use this command: # = False root chuser rlogin Prohibition su operation: # = False root chuser su The same is true of other users Duxf back in :200..
[Original] how to create Lotus Domino e-mail users: Originally there every step of the title, then, is to do a giant detailed documents. To the beginning of the brothers with Domino reference. In addition, the web can be conducted through e-mail users..
43 p140 used to achieve the simple hacmp environment (2): To use two 140 OPS environment first of all realize the need to achieve concurrent environment. Or use more than the hardware environment, and the following set of hacmp, hacmp hacmp escrm software v..
[Reproduced] Some use IBM RS/6000: ★ IBM C V5.0 rapid deployment To / usr / vac / cforaix_n.lic the nodelock items copied to / var / ifor / nodelock document. ★ AIX users how automatic logout Some users log after long idle, it may l..
The article does not necessarily old useless:): As the work of the reasons we may be ibm equipment to. Ibm now also look at:) Today redbooks see above Although this document is the old point. But some things worth learning. This document did not e..