Я хочу определить функцию, которая возвращает уникальную строку при каждом вызове. Возвращаемое значение этой функции должно быть уникальным в течение следующих 50 лет. Вот что я пробовал:
k.rand=USERID()
do i=1 to 10 by 1
n=RANDOM(1,26)
k.i=word('a b c d e f g h I j k l m n o p q r s t u v w x y z ',n)
m.i= WORD('@ ! # $ % ^ * 1 2 3 4 5 6 7 8 9',i)
k.rand=k.rand ||k.i ||m.I
END
say k.rand
На нашем сайте есть несколько инструментов REXX, которые при вызове отправляют задания на мэйнфреймы. Например, если вы вызываете инструмент для набора данных, задание будет отправлено в фоновом режиме для определения количества записей в наборе данных.
В определенный момент инструмент REXX может быть запущен N раз. Чтобы избежать дублирования имен заданий в спуле, мы придумали что-то вроде приведенного ниже.
NUM = RANDOM(000,999)
JOBNAME=USERID()||NUM
И USERID(), и RANDOM() встроены в функции REXX.
USERID() возвращает идентификатор пользователя TSO/E. Подробнее здесь< /а>.
RANDOM возвращает случайное число. Подробнее здесь< /а>.
здесь приведен фрагмент кода, который вы можете попробовать.
return a quasi-random nonnegative whole number. The numbers are generated mathematically, using the initial seed, so that as far as possible they appear to be random. Running the program again produces the same sequence; using a different initial seed almost certainly produces a different sequence. If you do not supply a seed, the first time RANDOM is called, an arbitrary seed is used. Hence, your program usually gives different results each time it is run.
- person Srinivasan JV; 01.10.2018
USERID() возвращает одно и то же значение, скажем, «SRINI». Это RANDOM() значение функции + USERID(), что делает имя задания уникальным ).
- person Srinivasan JV; 01.10.2018
В Rexx нет встроенной функции UUID. Walmart Labs открыла сервис на основе z/OS, который генерирует UUID с гарантией до 34 000 года :)
zUID — это облачная служба в среде z/OS, которая генерирует уникальный идентификатор с использованием специального алгоритма, на который заявлен патент. Гарантировано создание 100% уникальных идентификаторов до 34 000 года без необходимости управления системой базы данных.
Сервис возвращает UID в 3 различных шестнадцатеричных форматах: обычный, guid и ess в текстовом формате. Они не завернуты в структуры XML или JSON.
простой: 32 байта, 1234567890abcdef1234567890abcdef
ess: 34 байта, 12345678-90abcdef12345678-90abcdef
guid: 36 байт, 12345678-90ab-cdef-1234-567890abcdefДля этой услуги авторизация не требуется.
В дополнение к веб-доступу вы можете вызывать эту подпрограмму напрямую, используя команду CICS LINK в своих программах COBOL. Интерфейс HTTP был разработан, чтобы сделать его доступным для большего числа пользователей за пределами среды z/OS.
Вы используете REXX в системе z/OS? Если это так, вы можете сгенерировать уникальные числа с помощью инструкции STCKE STORE CLOCK EXTENDED, которые будут уникальными в течение тысяч лет при генерации в той же системе или сисплексе с синхронизированными часами.
Вам нужно взломать ассемблер, чтобы написать внешнюю функцию REXX.
STCKE RSECT
STCKE AMODE 31
STCKE RMODE ANY
SAVE (14,12)
LR R12,R15
USING STCKE,R12
USING EFPL,R1 REXX external function parameter list
L R4,EFPLEVAL
L R4,0(R4) REXX evaluation block
USING EVALBLOCK,R4
STCKE EVALBLOCK_EVDATA Store STCKE in the function result area
MVC EVALBLOCK_EVLEN,=F'16' length of result (STCKE)
LA R15,0 RC=0
RETURN (14,12),RC=(15)
YREGS
IRXEFPL
IRXEVALB
END
И убедитесь, что вы установили numeric digits в коде REXX, так как STCKF — это огромное 16-байтовое число!
/* REXX */
numeric digits 64
do 10
raw = stcke()
hex = c2x(raw)
num = x2d(hex)
say hex num
end
