ca.portal.admin

Re:Re: [IDMSVENDOR-L] need help with ADS: source

Discussion created by ca.portal.admin on Aug 18, 2010
MOVE 'OOAK' TO OOAK-KEY-012.
OBTAIN CALC OOAK-012
ALLOWING ('0000' THRU '9999').
OBTAIN FIRST ATTRIBUTE-093 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
OBTAIN LAST CLASS-092 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
OBTAIN FIRST DEST-028 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
OBTAIN FIRST MAP-098 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
OBTAIN LAST PROG-051 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
OBTAIN FIRST S-010 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
OBTAIN LAST SS-026 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
OBTAIN FIRST SYS-041 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
OBTAIN LAST USER-047 WITHIN DDLDML
ALLOWING ('0000' THRU '9999').
MOVE 0 TO COUNTER.
OBTAIN FIRST INQ-058 WITHIN DDLDML
ALLOWING ('0000').
WHILE (COUNTER LT 999)
OBTAIN NEXT INQ-058 WITHIN DDLDML
ALLOWING ('0000' '0307').
ADD +1 TO COUNTER.
END.
LEAVE.

The information transmitted is intended only for the person or entity to
which it is addressed and may contain CONFIDENTIAL material. If you
receive this material/information in error, please contact the sender
and delete or destroy the material/information.



The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: [IDMSVENDOR-L] need help with ADS: source
"worked like a charm - thanks - even old dogs like me can learn a new thing
once in a while

Chris Hoelscher
IDMS/DB2 System & Database Architect
Humana Inc
502-476-2538
choelscher@humana.com

I refuse to repeat gossip - so listen carefully the first time






From:
""David E Matthews (DHL CZ)"" <David.Matthews@DHL.COM>
To:
IDMSVENDOR-L@LISTSERV.IUASSN.COM
Date:
08/18/2010 11:14 AM
Subject:
Re: [IDMSVENDOR-L] need help with ADS: source
Sent by:
IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



I always say LEAVE ADS.
Default is LEAVE APPL.
Makes a difference?

Outcomes