When I ran this I got 6 extra: 1F80 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F81 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F82 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F83 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F84 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F85 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F86 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F87 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F88 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F89 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F8A NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F8B NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F8C NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F8D NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F8E NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F8F NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F90 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F91 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F92 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F93 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F94 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F95 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F96 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F97 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR 1F98 NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR
Oh, the DEV specification is decimal not HEX. Frank M. Ramaekers Jr. > -----Original Message----- > From: CMSTSO Pipelines Discussion List [mailto:CMS- > [email protected]] On Behalf Of Gregg > Sent: Tuesday, September 25, 2012 10:03 AM > To: [email protected] > Subject: Re: [CMS-PIPELINES] Duplicate based on input > > /********************************************************** > *************/ > _Frank ="NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR" > 'Pipe ( End ΒΌ ) ', /* */ > 'Literal '_Frank'| ', /* */ > 'Specs ', /* /NICDEF/ */ > ' s: w2 . ', /* Starting address */ > ' z: w6 . ', /* Count, NNx or NN? */ > ' Set ( #0:=0 ; #1:=x2d(s) ', /* start with... */ > ' ; #2:=x2d(z) ) ', /* assume it's hex... */ > ' While #2>#0 Do ', /* Loop for... */ > ' Print #1 d2x 01.04 Right ', /* */ > ' W1-* nW ', /* */ > ' Write ', /* */ > ' Set ( #0+=1 ; #1+=1 ) ', /* */ > ' Done |', /* */ > ' Console ', /* */ > ; /******************************/ > > -- > Gregg Reed > "No Plan, survives execution" _____________________________________________________ This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at [email protected].
