> Tech > Figure 1A

Figure 1A

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

Extraire la valeur day-of-week avec RPG seulement

* ===================================================================
* = Description... Retrieve day-of-week
* ===================================================================
H NoMain
D RtvDayOfWeek 	PR 		5I 0
D 						D Value
P RtvDayOfWeek 	B 		Export
D RtvDayOfWeek 	PI 		5I 0
D DateIn 					D Value
D SomeSunday 	S 			D Inz( D'2001-05-20' )
D Days 		S 		10I 0

Figure 1A

C DateIn SubDur SomeSunday Days : *D
C Return ( %Rem( %Rem( Days : 7 ) + 7 : 7 ) ) + 1
P RtvDayOfWeek E

Téléchargez cette ressource

Comment sécuriser une PME avec l’approche par les risques ?

Comment sécuriser une PME avec l’approche par les risques ?

Disposant de moyens financiers et humains contraints, les PME éprouvent des difficultés à mettre en place une véritable stratégie de cybersécurité. Opérateur de services et d’infrastructures, Naitways leur propose une approche pragmatique de sécurité « by design » en priorisant les risques auxquelles elles sont confrontées.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010