How blockchain is transforming supply chains Let's say you go to the supermarket to buy some fruit
z/TPFDF recoup optimized chain chasing reduces the amount of DASD I/O resources and the time required by recoup to chain chase z/TPFDF indexed databases that contain a large number of detail subfiles with only a single pool record
CRUISE validation enhancements provide the capability to validate the backward chain field and the AUT byte usage
/* Rexx */ /*--*/ /* Description: */ /* Sample rexx program for multi-part encryption (chaining) and */ /* single-part decryption using CSNBSYE/CSNBSYD. */ /* */ /* - call CSNBSYE with rules : AES CFB INITIAL */ /* - call CSNBSYE with rules : AES CFB FINAL */ /* - call CSNBSYD with rules : AES CFB ONLY */ /* */ /* See ICSF Application Programmer's Guide for api and parameter */ /* documentation. */ /* */ /*--*/ my AES clearkey = '2b7e151628aed2a6abf7158809cf4f3c'X; my AES clearkey length = '00000010'x ; /*--*/ /* initialize parameters for Initial Symmetric Key Encipher call */ /*--*/ SYE rc = 'FFFFFFFF'x ; SYE rs = 'FFFFFFFF'x ; SYE Exit Length = '00000000'x ; SYE Exit Data = '' ; SYE Rule Count = '00000004'x ; SYE Rule Array = 'Aes CFB KEY-CLR INITIAL '; SYE Key identifier length = my AES clearkey length SYE Key Identifier = my AES clearkey SYE Key Parms Length = '00000000'x ; /* ignored */ SYE Key Parms = '' ; /* ignored */ SYE Block Size = '00000010'x ; SYE Initialization Vector Length = '00000010'x ; SYE Initialization Vector = '000102030405060708090a0b0c0d0e0f'x ;SYE Chain Data length = '00000020'x ; SYE Chain Data = copies('00'x,32) SYE clear text Length = '00000020'x SYE clear text = 'Initial clear text to CSNBSYE. '; SYE cipher text Length = '00000080'x ; SYE cipher text = copies('00'x,128) ; SYE Optional Data Length = '00000000'x ; /* ignored */ SYE Optional Data = '' ; /* ignored */ say 'SYE Rule Array: ' SYE Rule Array say 'SYE Clear Text: ' SYE Clear Text /* call Symmetric Key Encipher */ address linkpgm 'CSNBSYE' , 'SYE rc' 'SYE rs' , 'SYE Exit Length' 'SYE Exit Data' , 'SYE Rule Count' 'SYE Rule Array' , 'SYE Key identifier length' 'SYE Key Identifier' , 'SYE Key Parms Length' 'SYE Key Parms' , 'SYE Block Size' , 'SYE Initialization Vector Length' , 'SYE Initialization Vector' , 'SYE Chain Data Length' 'SYE Chain Data' , 'SYE clear text Length' 'SYE clear text' , 'SYE cipher text Length' 'SYE cipher text' , 'SYE Optional Data Length' 'SYE Optional Data' ; say 'SYE: rc =' c2x(SYE rc) 'rs =' c2x(SYE rs) ; If (SYE rc <> '00000000'x) & (SYE rs <> '00000000'x) then signal getout ; /* save cipher text to pass to SYD */ Init Cipher Len = SYE Cipher text Length Init Cipher text = substr(SYE Cipher text,1,c2d(SYE Cipher text Length)) /*--*/ /* initialize parameters for FINAL Symmetric Key Encipher call */ /*--*/ SYE rc = 'FFFFFFFF'x ; SYE rs = 'FFFFFFFF'x ; SYE Exit Length = '00000000'x ; SYE Exit Data = '' ; SYE Rule Count = '00000004'x ; SYE Rule Array = 'Aes CFB KEY-CLR FINAL '; SYE clear text = 'FINAL clear text to SYE
The TCP/IP IP scan processing needs to serially search the AOR timer chain, which is the chain of sockets with an activate on receipt or activate on accept pending. In the z/TPF system, this chain can contain thousands of sockets. Before this enhancement, the z/TPF system processed the entire AOR timer chain when holding the socket block lock
/* Rexx */ /*--*/ /* Description: */ /* Sample rexx program for multi-part encryption and multi-part */ /* decryption (chaining) using CSNBSYE/CSNBSYD. */ /* */ /* - call CSNBSYE with rules : AES CFB INITIAL */ /* - call CSNBSYE with rules : AES CFB CONTINUE */ /* (SYE can be called multiple times with rule CONTINUE) */ /* - call CSNBSYE with rules : AES CFB FINAL */ /* - call CSNBSYD with rules : AES CFB INITIAL */ /* - call CSNBSYD with rules : AES CFB CONTINUE */ /* (SYD can be called multiple times with rule CONTINUE) */ /* - call CSNBSYD with rules : AES CFB FINAL */ /* */ /* See ICSF Application Programmer's Guide for api and parameter */ /* documentation. */ /* */ /*--*/ my AES clearkey = '2b7e151628aed2a6abf7158809cf4f3c'X; my AES clearkey length = '00000010'x ; /* -- */ /* setup parms for first call to SYE */ /* -- */ SYE Rule Count = '00000004'x ; SYE Rule Array = 'Aes CFB KEY-CLR INITIAL '; SYE Key identifier length = my AES clearkey length SYE Key Identifier = my AES clearkey SYE Chain Data length = '00000020'x ; SYE Chain Data = copies('00'x,32) SYE clear text Length = '00000020'x SYE clear text = 'Initial clear text to CSNBSYE. '; call Symmetric Key Encipher; If (SYE rc <> '00000000'x) & (SYE rs <> '00000000'x) then signal getout ; /* Save cipher text and length for call to SYD */ Init Cipher Len = SYE Cipher text Length Init Cipher text = substr(SYE Cipher text,1,c2d(SYE Cipher text Length))/* ----------- */ /* setup parms for intermediate call to SYE */ /* (there can be multiple intermediate calls ) */ /* ----------- */ SYE Rule Count = '00000004'x ; SYE Rule Array = 'Aes CFB KEY-CLR CONTINUE'; SYE clear text Length = '00000020'x SYE clear text = 'Middle clear text to CSNBSYE. '; call Symmetric Key Encipher; If (SYE rc <> '00000000'x) & (SYE rs <> '00000000'x) then signal getout ; /* Save cipher text and length for call to SYD */ Middle Cipher Len = SYE Cipher text Length Middle Cipher text = , substr(SYE Cipher text,1,c2d(SYE Cipher text Length)) /* ----------- */ /* setup parms for last call to SYE */ /* ----------- */ SYE Rule Count = '00000004'x ; SYE Rule Array = 'Aes CFB KEY-CLR FINAL '; SYE clear text = 'FINAL clear text to SYE
Two utility user exits are provided to intercept CRUISE before chain chase processing begins for the first top-level file ID, and after chain chase processing is completed for the last top-level file ID
A large pharmacy chain has renewed their contract with Infor to continue their relationship with Infor’s Enterprise Server product line
The new Arcares Factoring Portal, a key for the Factoring and Supply Chain Finance management ecosystem - PRESS RELEASE, Jan 2021 Arcares , the Lutech Group company focused on the development of solutions for Factoring and Supply Chain Finance, announces the availability of the new version of the Factoring Web Portal, WOF ( Web Online Factoring ), to provide funds for the working capital of SMEs
As covered on the Ubuntu on Big Iron blog post by Canonical's Frank Heimes, A new Ubuntu LTS is available: Focal Fossa aka 20.04 , this release includes: Support for IBM Secure Execution Expanded z15 hardware support, including for compression and encryption Tool chain updates for various libraries 5.4 Linux kernel The subiquity installer And much more!