Programme de recherche phonétique dans Customer
FCustSrch CF E WorkStn SFile( RecSfl : SflRecNbr )
F IndDS( CustSrchIndDS )
FCustomerL1IF E K Disk
* ===================================================================
* = Entry parameters
* ===================================================================
D EntryParms PR ExtPgm( 'CUSTSRCH' )
D 2 0
D EntryParms PI
D LastNameIn 20
D CustSrchIndDS DS
D Exit
1 1N
D SflEnd 2 2N Inz( *On )
D SflAction 3 5
D SflClr 1N Overlay( SflAction : 1 )
D SflDsp 1N Overlay( SflAction : 2 )
D SflDspCtl 1N Overlay( SflAction : 3 )
D ClrSfl S 3 Inz( ‘100’ )
D DspSfl S 3 Inz( ‘011’ )
D SflRecNbr S 5I 0 Inz( *Zero )
* ===================================================================
* = Mainline
=
* ===================================================================
C CustKey KList
C KFld LastSound
C/exec SQL
C+ Set :LastSound = Soundex( :LastNameIn )
C/end-exec
C Eval SflAction = ClrSfl
C Write RecSfC
C Eval SflRecNbr = *Zero
C CustKey SetLL CustomerL1
C CustKey ReadE CustomerR
C Do W Not( %EOF( CustomerL1 ) )
C Eval SFLRecNbr = SFLRecNbr + 1
C Write RecSfl
C CustKey ReadE CustomerR
C EndDo
C Eval SflAction = DspSfl
C Write Footer
C ExFmt RecSfC
C Do W Not( Exit )
C Write Footer
C ExFmt RecSfC
C EndDo
C Eval *InLR = *On
Explorez les méandres d’une investigation de ransomware, avec les experts de Palo Alto Networks et Unit 42 pour faire la lumière dans la nébuleuse des rançongiciels. Plongez au cœur de l’enquête pour comprendre les méthodes, les outils et les tactiques utilisés par les acteurs de la menace. Découvrez comment prévenir les attaques, les contrer et minimiser leur impact. Des enseignements indispensables aux équipes cyber.
