ca.portal.admin

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.
"
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
"I always say LEAVE ADS.
Default is LEAVE APPL.
Makes a difference?

Outcomes