Re: [CMS-PIPELINES] IF testing characters

2022-11-27 Thread John P. Hartmann
On 11/27/22 13:51, a.benveni...@free.fr wrote: Sorry John to come back but, There is no /== operator in specs. For me, ^== works as the not exactly equal operator because my terminal emulator maps ^ to not; perhaps it works for you too. Otherwise you need to find the not character on your ter

Re: [CMS-PIPELINES] IF testing characters

2022-11-27 Thread a.benveni...@free.fr
Sorry John to come back but, With "! SPECs", " a: 54.5 .", " if (£1/==a) then", " set £1:=a", " set £2:=1", " else", " set £2+=1", " endif", and with 6010A or 60102 and by reducing or not my storage from 128M to 16M I receive : FPLYAC1434E Parse error in state 145, u

Re: [CMS-PIPELINES] IF testing characters

2022-11-27 Thread John P. Hartmann
On 11/27/22 12:39, a.benveni...@free.fr wrote: " if (£1/=a) then", The numerically not equal operator converts both arguments to numbers and then performs a numeric compare. Your compare of 6010A fails because the digit A is not decimal. (Specs has no facility to compare hexadecimal.) U

Re: [CMS-PIPELINES] IF testing characters

2022-11-27 Thread a.benveni...@free.fr
Rob, I would pleased to run it ! De : CMS/TSO Pipelines Discussion List de la part de Rob van der Heij Date : dimanche, 27 novembre 2022 à 10:06 À : cms-pipeli...@listserv.meduniwien.ac.at Objet : Re: IF testing characters While this doesn't address your questions about SPEC, I do have a ver

Re: [CMS-PIPELINES] IF testing characters

2022-11-27 Thread a.benveni...@free.fr
Yes John ! But now, back with a simplified code, [code] "! SPECs", " a: 54.5 .", " if (£1/=a) then", " set £1:=a", " set £2:=1", " else", " set £2+=1", " endif", " 1-* 1", " print £2 picture 9 nextword", "!> $$TEMP$$ $$TEMP$$ A3" a: value can be 60102, 30051 but a

Re: [CMS-PIPELINES] IF testing characters

2022-11-27 Thread Rob van der Heij
While this doesn't address your questions about SPEC, I do have a very interesting pipeline that uses almost all options of LOOKUP to go through a User Directory and determine gaps or re-allocate minidisks from one (or all) volumes to new volumes to generate DIRMAINT commands... Rob