Quick system generated number
Kogan, Arthur
akogan@westpac.com.au
Mon, 8 Mar 1999 09:43:48 +1100
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_000_01BE68EC.5443487E
Content-Type: text/plain;
charset="iso-8859-1"
Just a few things to add here.
1. If you do not care that you have unused numbers in the sequence, than the
backout logic is not required and the program is safer without it.
2. This type of code should use a ghost screen, i.e. in the preentry
procedure, you call a ghost screen (a screen without fields) in which you
increment the "key-number" (or sundies) record by one and update before
returning to your screen and pre-displaying the number.
3. If you are using a relational database, most of them have a sequence
generator that you can use. These are guaranteed not to create duplicates
and you do not have to code the above technique.
Regards,
Arthur Kogan
Westpac Financial Services
Sydney, Australia
> -----Original Message-----
> From: rkessler [SMTP:rich@thestewart.org]
> Sent: Monday, 8 March 1999 3:41 AM
> To: 'Tumulties@aol.com'
> Cc: 'powerh-l@lists.swau.edu'
> Subject: FW: Quick system generated number
>
> Here is a method.
> Some detail is left out, but the idea is to create a
> 'sundries' record that holds the NEXT NUMBER TO
> BE USED. Then access that file and grab the next
> number every time you create a new record.
> Would need to seed this sundries file with a number
> larger than any existing number on the file you are
> trying to not conflict with. Note: code below
> is not bullet proof. If two or more people
> are entering, and someone backs out,
> an 'old' number can be put back on the
> sundries record.
> ===============================
> Another answer to your question is to use
> the LOOKUP NOTON option on the field
> statement of the field you are trying to enter a
> contol number for. Usually you would have
> your 'customer-master' record be a reference
> file then do a lookup noton of your entered
> field against the like field in customer-master.
>
> Good Luck
> Richard Kessler
> rich@thestewart.org
> rakessler@mindspring.com
> 205-969-3000
> =================================
> screen $SSO/ssos003 &
> activities entry
>
> file service-ticket primary close
>
> file ssm-sundries designer close
> access via sundry-id using "TICKET"
>
> field ticket-number of service-ticket display &
> label "Control No:" noid
>
> ;----------------------------
> procedure preentry
> ;----------------------------
> begin
> lock ssm-sundries record
> get ssm-sundries via sundry-id using "TICKET"
> let ticket-number = next-ticket-number of ssm-sundries
> let next-ticket-number of ssm-sundries = &
> next-ticket-number of ssm-sundries + 1
> put ssm-sundries
> unlock ssm-sundries record
> end
>
> ;----------------------------
> procedure backout
> ;---------------------------
> begin
> lock ssm-sundries record
> get ssm-sundries via sundry-id using "TICKET"
> if next-ticket-number of ssm-sundries = ticket-number + 1
> then begin
> let next-ticket-number of ssm-sundries = ticket-number
> put ssm-sundries
> end
> unlock ssm-sundries record
> end
>
> build
>
> -----Original Message-----
> From: Tumulties@aol.com [SMTP:Tumulties@aol.com]
> Sent: Saturday, March 06, 1999 12:24 PM
> To: powerh-l@lists.swau.edu
> Subject: Quick system generated number
>
> I am just learning Quick on an HP3000. I need to create a system
> generated
> customer-number in entry mode on quick screen. I need to make sure the
> customer-number doesn't already exist in the customer master dataset.
> What
> would be the apropriate technique to calculate this unique number?
>
> Thanks
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> =
> Subscribe: "subscribe powerh-l" in message body to
> majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
> This list is closed, thus to post to the list, you must be a subscriber.
------_=_NextPart_000_01BE68EC.5443487E
Content-Type: application/ms-tnef
Content-Transfer-Encoding: base64
eJ8+IhsWAQaQCAAEAAAAAAABAAEAAQeQBgAIAAAA5AQAAAAAAADoAAEIgAcAGAAAAElQTS5NaWNy
b3NvZnQgTWFpbC5Ob3RlADEIAQSAAQAiAAAAUkU6IFF1aWNrIHN5c3RlbSBnZW5lcmF0ZWQgbnVt
YmVyACsMAQmAAQAhAAAAMDUzQUQwQTNEQkQ0RDIxMTg4NDMwMDAwODM2ODM1NjcA3AYBIIADAA4A
AADPBwMACAAJAC4AGAABADEBAQWAAwAOAAAAzwcDAAgACQArADAAAQBGAQENgAQAAgAAAAIAAgAB
A5AGAPANAAArAAAACwACAAEAAAADAC4AAAAAAEAAOQDAHhr362i+AR4AcAABAAAAHgAAAFF1aWNr
IHN5c3RlbSBnZW5lcmF0ZWQgbnVtYmVyAAAAAgFxAAEAAAAbAAAAAb5oukcNYyVN9dQJEdKeGgAA
9rj6EQAMG6YQAAIBCRABAAAA+wgAAPcIAACPEgAATFpGdWdKgGkDAAoAcmNwZzEyNdIyAPszNgHo
IAKkA+MJAgBjaArAc2V0MB4gBxMCgwBQEFZwcnHeMhFZDlAD1RFlfQqACMjsIDsJbw4wNRV/CmAC
gNkKgXVjAFALA2MAQQtgIm4OEDAzMwumIEpEdXMFQGEgZgfRdEpoC4BnBCB0bxpgZMhkIGgEkGUu
CqIKhAEKgDEuIElmIHlJCGAgZBtQbm8FQGN1CsBlGsFhBUAdIhDgdrkeAHVuGjAJgB2AdQbQvwSQ
BCALgBrBHgAREHEKULBuY2UsHhIgBGIA0O5rCGAFQAkAZw3gH+AEILcdkhbgIIBpFuEaYG4bkEcg
IhKgIiByYW0iYnP+YRqQBcAD8BrQIdIlEBzQNRwKMhzQVBrgGyF5cH0eAG8dAAWgAQAgUCUxbPcb
kB8hGmFnJTAaQQTxCeF5IOBpLhvgH+YSoAnhdOxyeSPiIMBkCHAg0R0izR3QbAMgKIwgKBpwLJVN
JQZmCJAoEHMpH+J3/xrgENAdEwuAKREHgAIwIBOgImtleS0fdCIs8PUFsXMfAGQIkC5xFuAFoT0b
kGIqsAIgKGEjgXVwfmQeQCFxARAFsB4AFuB0/whwAwAZMBsyHSExQSykI3LVKkEtMZBzC1F5NFMg
MfsfdCWsMxzXHeIaMDRSGnDzFuALYHRpAiAHQB1QHkD9AaBhERAg4ARgGkEnUSAh/yRQHrMtESB1
KJAJ8ASQHkD/BbEeJx3QA6AfISaSB5AoYfkd8Wd1CsAAcDNQH0Idof8bQSkRM0IrIAtQDeAzQQQg
fyNyHSkes0ACJ5IgIgGgbztCYgWQaAMAIIEb+1Jl8mcLEXMsHAoHEBrQNOGuSyIgAHAcBFcHkHQK
sG0iUEYLgABwYwcxBlJ2rw3gB5AcBAawZDKgeSDg/kEaMSQwQNAacBwKCvRA0F8PMRjBAUAj8UOx
dBHkMeg2IC1NUk8FECIwOgL+TQeQJKA8sE1THAZMZEwxgwsTTGZpLTE0NAFAcUDQMTgwAUAM0FDz
YqtH4ANhOgyDYhFAcjBgBQQQbCTRW1NNVFD2OgUQENBAICEaQAfQCsDzJZAFsGddHAVSIAZgAjDd
UodNAiAzMEnBOAXQCsAJLwExOVewIDM6NEoxEVBNVUdUb1KHJ55UH4AoADnQB5BAYQbwki4FoG0n
VUdDY1kYCHBvdwSQaC1sQJNA0BpAcy4D4GF1KZDDKyBayFN1YmpMkVKH4EZXOiBRIxAhsCBQ/nlU
gSRQPLUfR07/UApLtH8M0AHBGMETkROSDAEcE0hfG8EiYhpwB4AlIWQb9VP/A3BAgREgC3ADICJx
U2ABgLcnQCHgIOBiIeEgImkBANcacCbSQBdhHAQnMWIIgXxzJzHmHiMlMC5RIBNOCEVYVAewVU1C
RRpSJqBPHARsgCBVU+xFRD5TNWFjSOFroh5BPy4gU2AjYyQhUiA2s2V450ywHBMfdCBlHtAqoTnQ
f2ZxK4NpJW/xB+Ax9Bv1V/8n8zKgH0EbQREQdCImwmoG/27UJQJyYmD5C2BVECTRIQP/AHAqsHAQ
XME0UnClAiAgE39u4ziVHAQqkTRVHZMCIGbvQNEFQCUCHNBOTHFfUCeD+x+gCQB3HAQidWfgK+AR
IOcj4idQHNN0dxtQBbEEYPsd8ScgbwtQelUd4ipxBnH3GTAg4CNyc2ZhMpIhkgQg92eSgJUDoCdr
cWqAcKU94v8foCPgIeEhknklHAR1J3LV/SW1PYfPiKtF9R2RG7EjYf8D4HdyNKUggXhheTFotB8h
A3plIDFMT09LVVD1B7BPbMBOJ0AFMIvSeTf/LkGF9QGQYAEv0js0LhQ4h/96yIEzaXZ7oRtAAyBw
pTOh/RzQVTFgK9EqsB0if4AoAmceshwENMMnYxoxZmFy9i0AwFSBcmqHhNE5ciTB/yCiHARu4yAh
A6AdYRpwCQD8b2szEB2CjlIdA3DxgUL/CYCYtpDSTnALcRpBICJA0N8wYJClH/GWXSWsR37wG5D6
TBhAa0S1LvELEUawUzQvHARUD1UQodVhUyVAbT8LgC5gEqAa8VqCJiUwNcAtOTY5LTNRgGR1D4iv
iL+GBCykJFNTT44vBBAowFGAMyAmHAT+IKrlANA50EjAWgKBIiqh7xwKbuMREEizLTnQIbB+oe+q
4qSxAMAqoWMJAIyGrNp4c20tdSeq5AEAAJBn/zzRryqq6G5DSMAtEWoSMIADaGA5BSJUSUNLRfxU
Iq+MkNKuBDCVJ0Ktjf82BapuC2B9QTBACFAqgZNBvXyQOjEAHZBoYBwKO01T/7zfvUQcBCrXKje8
L8DfTuX/H6BN0bltKvBfsbCqMfSqjP88sCjhsKqz/7UPucd+obbc/j1v8631tzqwqsjPyt/L7z8E
IMrAqn2q5s4/z08gK/9XkKqMhQKwmqqMHwDDn8Sr/wnwu7/aP73fvuUhldmv3k//wg/DH9fPxT/G
T8dfyG+q4f8GkNHv0v/QQueM1C+ZY9/P/9D4zf/oD+kfYRfQ/tU/8O//quLZF9af4W/Yv9+DIxCP
Jv8cBE1fTm1SRyagWc5TlfxPP1U1VdcGATQRVtNXRDA2ByDgV6MOIDoyNCBQ/1hVWPUj4Fw/XUNJ
FV5JX2/bYH8cRkkaYCRQahoyU2CfCsA0QwV0eTF3wUhQpiL/HNAc4HP3cgcF3pKllmbp9f+d8Sp0
f+AnoXkxIwEFoikT/wpbruCdYTFgHfN6VQ0eHWCpzOBuJxpRbEBBZHgVfx/mllYQoZcCOjMoUCWR
IP5XbqHzNJT0hNFDEyPxpLH/M0JDtz/zSkCWUDmxHgIicfcfABjD6fQ/JcomsIqQgsD/JcrQYBz/
Hg8fHyAvIJMER+0pAWkw0F9QIjFgIiUCx/8xAJ3xZnD6o9zAJ5BxURCStmoyIWZgbwNfN5JVnMD/
IhkxcCLPI9wlDwOuAt9dNLdookUwVJJ5dKEykS0uAbUZAmKrsC5cs62RLiwW3xt2ZxIUA8zwrzNk
OsBGcf9owywQnNIZIJ0EFBA6wJESv1nQFBGX0ygXN0DzNH1LMAIANeAAAwD9P1IDAAAeAEIQAQAA
ADAAAAA8NkI2RkVBMDkwRkZGRDExMTlDQkQwMEEwQzk0OTc3NjQwNkE1MjdATlRTRVJWPgALAACA
CCAGAAAAAADAAAAAAAAARgAAAAADhQAAAAAAAAMAB4AIIAYAAAAAAMAAAAAAAABGAAAAABCFAAAA
AAAAAwAjgAggBgAAAAAAwAAAAAAAAEYAAAAAUoUAAHQQAAAeACSACCAGAAAAAADAAAAAAAAARgAA
AABUhQAAAQAAAAUAAAA4LjAyAAAAAAMAD4AIIAYAAAAAAMAAAAAAAABGAAAAAAGFAAAAAAAACwAp
gAggBgAAAAAAwAAAAAAAAEYAAAAADoUAAAAAAAADAAyACCAGAAAAAADAAAAAAAAARgAAAAARhQAA
AAAAAAMAK4AIIAYAAAAAAMAAAAAAAABGAAAAABiFAAAAAAAAHgA6gAggBgAAAAAAwAAAAAAAAEYA
AAAANoUAAAEAAAABAAAAAAAAAB4AO4AIIAYAAAAAAMAAAAAAAABGAAAAADeFAAABAAAAAQAAAAAA
AAAeADyACCAGAAAAAADAAAAAAAAARgAAAAA4hQAAAQAAAAEAAAAAAAAAAwAmAAAAAAADADYAAAAA
AB4AMUABAAAADwAAAEtPR0FOQTREQ0I3ODM4AAADABpAAAAAAB4AMEABAAAADwAAAEtPR0FOQTRE
Q0I3ODM4AAADABlAAAAAAAMAgBD/////AgH5PwEAAABiAAAAAAAAANynQMjAQhAatLkIACsv4YIB
AAAABgAAAC9PPVdFU1RQQUMvT1U9V0JDL0NOPVJFQ0lQSUVOVFMvQ049TVNNQUlMIEFERFJFU1NF
Uy9DTj1LT0dBTkE0RENCNzgzOAAAAB4A+D8BAAAADgAAAEtvZ2FuLCBBcnRodXIAAAAeADhAAQAA
AA8AAABLT0dBTkE0RENCNzgzOAAAAgH7PwEAAABiAAAAAAAAANynQMjAQhAatLkIACsv4YIBAAAA
BgAAAC9PPVdFU1RQQUMvT1U9V0JDL0NOPVJFQ0lQSUVOVFMvQ049TVNNQUlMIEFERFJFU1NFUy9D
Tj1LT0dBTkE0RENCNzgzOAAAAB4A+j8BAAAADgAAAEtvZ2FuLCBBcnRodXIAAAAeADlAAQAAAA8A
AABLT0dBTkE0RENCNzgzOAAAQAAHMOAEEbXqaL4BQAAIMH5IQ1TsaL4BHgA9AAEAAAAFAAAAUkU6
IAAAAAAeAB0OAQAAAB4AAABRdWljayBzeXN0ZW0gZ2VuZXJhdGVkIG51bWJlcgAAAAsAKQAAAAAA
CwAjAAAAAAADAAYQh1Ye5wMABxC2CwAAAwAQEAAAAAADABEQAQAAAB4ACBABAAAAZQAAAEpVU1RB
RkVXVEhJTkdTVE9BRERIRVJFMUlGWU9VRE9OT1RDQVJFVEhBVFlPVUhBVkVVTlVTRUROVU1CRVJT
SU5USEVTRVFVRU5DRSxUSEFOVEhFQkFDS09VVExPR0lDSVNOT1QAAAAAGSw=
------_=_NextPart_000_01BE68EC.5443487E--
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.