I like that! Never used the WHILE DO...DONE construct of the SPEC stage. Pretty straight forward!
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:31 AM > To: [email protected] > Subject: Re: [CMS-PIPELINES] Duplicate based on input > > well, it was a fifty-fifty shot for me... so We'll drop the #2... > /********************************************************** > *************/ > _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... */ > ' While z>#0 Do ', /* Loop for... */ > ' Print #1 d2x 01.04 Right ', /* */ > ' W1-* nW ', /* */ > ' Write ', /* */ > ' Set ( #0+=1 ; #1+=1 ) ', /* */ > ' Done |', /* */ > ' Console ', /* */ > ; /******************************/ > > On Tue, Sep 25, 2012 at 11:17 AM, Frank M. Ramaekers > <[email protected]>wrote: > > > 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. > > -- > > 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].
