Shaarli

stopnum - Retrait de toute la numérotation en colonne 73 dans les sources COBOL

/ REXX /
ADDRESS ISREDIT
"MACRO ()"
"NUM OFF"
"CHANGE ALL 73 P'££££££££' ' '"
"LEFT MAX"
"UP MAX"
"RESET"

code · Rexx

September 6, 2013 at 3:33:23 PM GMT+2 · permalien

·

?2wxhow

àSrch - Recherche d'une/plusieurs chaîne(s) de caractères dans un/plusieurs PDS

/ --- Rexx --------------------------------------------------------- /
/ Recherche d'une chaine dans un ensemble de PDS /
/ Paramètres : - Chaine /
/ - Environnement /
/ - Langage /
/ - PDS /
/ - Type /
/ - Edit /
/ Entrée : - néant /
/ Sortie : - néant /
/ ------------------------------------------------------------------ /

Address ISREDIT
"MACRO (param)"
if param = "PARAM" then parse arg param
parse upper value param with param

call initialisation
call traitement
call fin

exit

initialisation:

Address TSO
"ALLOC F(sysin) NEW REU UNIT(VIO) RECFM(F B) LRECL(80)"
Queue "SRCHFOR '&DB2$$$$'"
Queue "SRCHFOR '&CREATOR'"
Queue "SRCHFOR '&COLL$$$'"
Queue "SRCHFOR '&COLL1$$'"
Queue "SRCHFOR '&PLAN$$$'"
Queue "SRCHFOR '&DZ00$$$'"
Queue "SRCHFOR '&DBPA$$$'"
Queue "SRCHFOR '&DBGS$$$'"
Queue "SRCHFOR '&SG$$$$$'"
Queue "SRCHFOR '&SGIX$$$'"
Queue "SRCHFOR '&BPTS$$$'"
Queue "SRCHFOR '&BPTX$$$'"
Queue "SRCHFOR '&PDSDBRM'"
Queue "SRCHFOR '&OWNER$$'"
Queue "SRCHFOR '&QUALIF$'"
Queue "SRCHFOR '&PCTFRE1'"
Queue "SRCHFOR '&PCTFRE2'"
Queue "SRCHFOR '&PCTFR31'"
Queue "SRCHFOR '&PCTFR32'"
Queue "SRCHFOR '&PCTFRE4'"
Queue "SRCHFOR '&PCTFRE5'"
Queue "SRCHFOR '&PCTFREE'"
Queue "SRCHFOR '&FREEPA1'"
Queue "SRCHFOR '&FREEPA2'"
Queue "SRCHFOR '&FREEP31'"
Queue "SRCHFOR '&FREEP32'"
Queue "SRCHFOR '&FREEPA4'"
Queue "SRCHFOR '&FREEPA5'"
Queue "SRCHFOR '&FREEPAG'"
Queue "SRCHFOR '&CLOSE$$'"
Queue "SRCHFOR '&ERASE$$'"
Queue "SRCHFOR '&COMPRES'"
Queue "SRCHFOR '&LOCKSIZ'"
Queue "SRCHFOR '&DEFER$$'"
Queue "SRCHFOR '&CURENTD'"
Queue "SRCHFOR '&EXPLAIN'"
Queue "SRCHFOR '&DEGREE$'"
Queue "SRCHFOR '&VALIDAT'"
Queue "SRCHFOR '&ACTION$'"
Queue "SRCHFOR '&SQLERRO'"
Queue "SRCHFOR '&REOPT$$'"
Queue "SRCHFOR '&RELEASE'"
Queue "SRCHFOR '&KEEPDYN'"
Queue "SRCHFOR '&DBPROTO'"
Queue "SRCHFOR '&ENCODIN'"
Queue "SRCHFOR '&IMMEDWR'"
Queue "SRCHFOR '&FLAG$$$'"
Queue "SRCHFOR '&BPTS4$$'"
Queue "SRCHFOR '&BPTS8$$'"
Queue "SRCHFOR '&BPTS16$'"
Queue "SRCHFOR '&BPTS32$'"
Queue "SRCHFOR '&BPTS64$'"
Queue "SRCHFOR 'NOTIFY='"
Queue "SRCHFOR 'NOTIFY=&SYSUID'"
Queue "SRCHFOR 'PZ00MBDJ'"
Queue "SRCHFOR 'PZ00MBDF'"
Queue "SRCHFOR '&PDS$$$$'"
Queue "SRCHFOR '&ACT$$$$'"
Queue "SRCHFOR '&CLASS$$'"
Queue "SRCHFOR '&JOBLIB$'"
Queue "SRCHFOR '&PROCLIB'"
Queue "SRCHFOR '&NOM$$$$'"
Queue "SRCHFOR '&ALIAS$$'"
Queue "SRCHFOR '&ENVDB2$'"
Queue "SRCHFOR '&REGION$'"
Queue "SRCHFOR '&MSGCLAS'"
Queue "SRCHFOR '&SYSOUT$'"
Queue "SRCHFOR '&UNIT$$$'"
Queue "SRCHFOR '&UPGM$$$'"
Queue "SRCHFOR '&DB2PROC'"
Queue "SRCHFOR '&DB2UTID'"
Queue "SRCHFOR '&UTCHECK'"
Queue "SRCHFOR '&UTFIC$$'"
Queue "SRCHFOR '&UTSTAT$'"
Queue "SRCHFOR '&UTUNLOA'"
Queue "SRCHFOR '&UTREORG'"
Queue "SRCHFOR '&UTREBLD'"
Queue "SRCHFOR '&UTLOADR'"
Queue "SRCHFOR '&UTLOADA'"
Queue "SRCHFOR '&UTLOADV'"
Queue "SRCHFOR '&UTPROGU'"
Queue "SRCHFOR 'CHECK '"
Queue "SRCHFORC ' DATA'"
Queue "SRCHFOR 'RUNSTATS'"
Queue "SRCHFOR 'IMAGE '"
Queue "SRCHFORC ' COPY'"
Queue "SRCHFOR 'UNLOAD'"
Queue "SRCHFOR 'REORG'"
Queue "SRCHFOR 'REBUILD'"
Queue "SRCHFOR 'LOAD'"
Queue "SRCHFOR 'DSNTEP2'"
Queue "SRCHFOR 'DSNTEP4'"
Queue "SRCHFOR 'DSNTIAUL'"
"EXECIO "Queued()" DISKW sysin (FINIS"

return

traitement:

call liste "ULIVR.NDV.STC.JCL.BASE" ULIVR JCL Batch

return

fin:

return

liste:
parse arg pds reste

Address TSO
"ALLOC F(newdd) DA('"pds"') SHR REU"
"ALLOC F(outdd) NEW REU UNIT(VIO) SP(1,1) CYLINDERS"
"CALL (ISRSUPC) 'SRCHCMP,ANYC'"
"EXECIO DISKR outdd (STEM supc. FINIS"
Do i = 1 To supc.0
Parse Var supc.i word1 word2 word3 word4 .
If c2x(left(word1, 1)) ^= 'FE' &,
word2 = '---------' &,
word3 = 'STRING(S)' &,
word4 = 'FOUND' Then
say word1
End
"FREE F(newdd)"
"FREE F(outdd)"

return

code · Rexx

September 6, 2013 at 3:31:25 PM GMT+2 · permalien

·

?ZxhWug

àI - Informations d'un PDS/membre nommé dans un job

/ --- Rexx --------------------------------------------------------- /
/ Fonction EDIT d'un PDS ou d'un membre /
/ Paramètres : - néant /
/ Entrée : - néant /
/ Sortie : - néant /
/ ------------------------------------------------------------------ /

Address ISREDIT
"MACRO (DSN)"
"(LigCurs, ColCurs) = CURSOR"
if DSN = "DSN" then parse upper arg DSN

call initialisation
call lire_param

call restpref
exit

/----------------------------/
/ Initialisation des données /
/----------------------------/
initialisation:
fichier = ""
dsnpos = 0
call SavePref
return

/------------------------------------------/
/ Lecture et interprétation des paramètres /
/------------------------------------------/
lire_param:

Address ISREDIT
select
when length(DSN) = 0 then do
"(Lig, Col) = CURSOR"
if Lig = 0 then do
"(PDSJCL, ,) = DATASET"
"(MEMBRE) = MEMBER"
fichier = PDS!!'('!!MEMBRE!!')'
end
"(LINEDATA) = LINE .ZCSR"
end
when datatype(DSN) = 'NUM' then do
"CURSOR="DSN" 0"
"(LINEDATA) = LINE .ZCSR"
end
when datatype(DSN) = 'CHAR' then do
fichier = DSN
dsnpos = 1
end
otherwise exit
end

Address ISPEXEC
if length(fichier) = 0 then do
lig=translate(LINEDATA,' ','=')
lig=translate(lig,' ',',')
dsnpos=wordpos('DSN',lig)
end
if dsnpos=0 then do
zedsmsg = ""
zedlmsg = "Pas de fichier ou de PDS sur la ligne"
"setmsg msg(isrz001)"
end
else do
if length(fichier) = 0 then fichier=word(lig,dsnpos+1)
bof = sysdsn(fichier)
if bof = 'OK' then do
Address TSO
say centre('LISTDSI',75)
say center('=======',75)
"ALLOC DD(IN) DS("fichier") SHR REUSE"
"EXECIO * DISKR IN (STEM in. FINIS"
say '"ALLOC DD(IN) DS('fichier') SHR REUSE "'
say 'LISTDSI(IN FILE)'
bof = listdsi(IN file)
say
say ' sysDSNAME ----> 'sysDSNAME
say ' sysVOLUME ----> 'sysVOLUME
say ' sysUNIT ----> 'sysUNIT
say ' sysDSORG ----> 'sysDSORG
say ' sysRECFM ----> 'sysRECFM
say ' sysLRECL ----> 'sysLRECL
say ' sysBLKSIZE ----> 'sysBLKSIZE
say ' sysALLOC ----> 'sysALLOC
say ' sysUSED ----> 'sysUSED
say ' sysPRIMARY ----> 'sysPRIMARY
say ' sysSECONDS ----> 'sysSECONDS
say ' sysUNITS ----> 'sysUNITS
say ' sysEXTENTS ----> 'sysEXTENTS
say ' sysADIRBLK ----> 'sysADIRBLK
say ' sysUDIRBLK ----> 'sysUDIRBLK
say ' sysMEMBERS ----> 'sysMEMBERS
say ' Nombre de lignes dans le fichier : 'in.0
say ' <ENTER>'
do 8;say;end
say centre('LISTDSI',75)
say center('=======',75)
say
say 'LISTDSI(IN FILE DIRECTORY)'
bof = listdsi(IN file directory)
"FREE F(IN)"
say
say ' sysDSNAME ----> 'sysDSNAME
say ' sysVOLUME ----> 'sysVOLUME
say ' sysUNIT ----> 'sysUNIT
say ' sysDSORG ----> 'sysDSORG
say ' sysRECFM ----> 'sysRECFM
say ' sysLRECL ----> 'sysLRECL
say ' sysBLKSIZE ----> 'sysBLKSIZE
say ' sysALLOC ----> 'sysALLOC
say ' sysUSED ----> 'sysUSED
say ' sysPRIMARY ----> 'sysPRIMARY
say ' sysSECONDS ----> 'sysSECONDS
say ' sysUNITS ----> 'sysUNITS
say ' sysEXTENTS ----> 'sysEXTENTS
say ' sysADIRBLK ----> 'sysADIRBLK
say ' sysUDIRBLK ----> 'sysUDIRBLK
say ' sysMEMBERS ----> 'sysMEMBERS' <ENTER>'
end
else do
zedsmsg = "Fichier non catalogué"
zedlmsg = fichier' 'bof
"setmsg msg(isrz001)"
end
end
return

/---------------------/
/ save prefix routine /
/---------------------/
savepref:

Address ISREDIT
sprefx = '' / save prefix /
uprefx = userid() / user prefix /
prefx = sysvar(syspref) / get prefix variable /
if prefx <> '' then do / if profile prefix /
sprefx = prefx / save it /
"profile noprefix" / work without prefix /
end
return / return to caller /

/------------------------/
/ restore prefix routine /
/------------------------/
restpref:

Address ISREDIT
prefx = sysvar(syspref) / get prefix variable /
if prefx = '' then do / if profile noprefix /
if sprefx <> '' then do / if saved /
prefx = sprefx / restore it /
"profile prefix("prefx")" / work with prefix /
end
end
return / return to caller /

code · Rexx

September 6, 2013 at 3:27:27 PM GMT+2 · permalien

·

?rFJqaw

àE - Edit d'un PDS/membre nommé dans un job

/ --- Rexx --------------------------------------------------------- /
/ Fonction EDIT d'un PDS ou d'un membre /
/ Paramètres : - néant /
/ Entrée : - néant /
/ Sortie : - néant /
/ ------------------------------------------------------------------ /

Address ISREDIT
"MACRO (DSN)"
"(LigCurs, ColCurs) = CURSOR"
if DSN = "DSN" then parse upper arg DSN

call initialisation
call lire_param

call restpref
exit

/----------------------------/
/ Initialisation des données /
/----------------------------/
initialisation:
fichier = ""
dsnpos = 0
call SavePref
return

/------------------------------------------/
/ Lecture et interprétation des paramètres /
/------------------------------------------/
lire_param:

fichier = àjcl$dd(DSN)
if datatype(fichier) = 'CHAR' then do
Address ISPEXEC
"edit dataset('"fichier"')"
end

return

/---------------------/
/ save prefix routine /
/---------------------/
savepref:

Address ISREDIT
sprefx = '' / save prefix /
uprefx = userid() / user prefix /
prefx = sysvar(syspref) / get prefix variable /
if prefx <> '' then do / if profile prefix /
sprefx = prefx / save it /
"profile noprefix" / work without prefix /
end
return / return to caller /

/------------------------/
/ restore prefix routine /
/------------------------/
restpref:

Address ISREDIT
prefx = sysvar(syspref) / get prefix variable /
if prefx = '' then do / if profile noprefix /
if sprefx <> '' then do / if saved /
prefx = sprefx / restore it /
"profile prefix("prefx")" / work with prefix /
end
end
return / return to caller /

end

return / return to caller /

code · Rexx

September 6, 2013 at 3:26:34 PM GMT+2 · permalien

·

?LhnotQ

àb - browse d'un PDS/membre nommé dans un job

/ --- Rexx --------------------------------------------------------- /
/ Fonction EDIT d'un PDS ou d'un membre /
/ Paramètres : - néant /
/ Entrée : - néant /
/ Sortie : - néant /
/ ------------------------------------------------------------------ /

Address ISREDIT
"MACRO (DSN)"
"(LigCurs, ColCurs) = CURSOR"
if DSN = "DSN" then parse upper arg DSN

call initialisation
call lire_param

call restpref
exit

/----------------------------/
/ Initialisation des données /
/----------------------------/
initialisation:
fichier = ""
dsnpos = 0
call SavePref
return

/------------------------------------------/
/ Lecture et interprétation des paramètres /
/------------------------------------------/
lire_param:

Address ISREDIT
select
when length(DSN) = 0 then do
"(Lig, Col) = CURSOR"
"(LINEDATA) = LINE .ZCSR"
end
when datatype(DSN) = 'NUM' then do
"CURSOR="DSN" 0"
"(LINEDATA) = LINE .ZCSR"
end
when datatype(DSN) = 'CHAR' then do
fichier = DSN
dsnpos = 1
end
otherwise exit
end

Address ISPEXEC
if length(fichier) = 0 then do
lig=translate(LINEDATA,' ','=')
lig=translate(lig,' ',',')
dsnpos=wordpos('DSN',lig)
end
if dsnpos=0 then do
zedsmsg = ""
zedlmsg = "Pas de fichier ou de PDS sur la ligne"
"setmsg msg(isrz001)"
end
else do
if length(fichier) = 0 then fichier=word(lig,dsnpos+1)
bof = sysdsn(fichier)
if bof = 'OK' then do
Address TSO
"ALLOC DD(IN) DS("fichier") SHR REUSE"
"EXECIO * DISKR IN (STEM bof. FINIS"
"FREE F(IN)"
Address ISPEXEC
if bof.0 > 0 then
"browse dataset('"fichier"')"
else do
zedsmsg = "Fichier vide"
zedlmsg = ""
"setmsg msg(isrz001)"
end
end
else do
zedsmsg = "Fichier non catalogué"
zedlmsg = fichier' 'bof
"setmsg msg(isrz001)"
end
end
return

/---------------------/
/ save prefix routine /
/---------------------/
savepref:

Address ISREDIT
sprefx = '' / save prefix /
uprefx = userid() / user prefix /
prefx = sysvar(syspref) / get prefix variable /
if prefx <> '' then do / if profile prefix /
sprefx = prefx / save it /
"profile noprefix" / work without prefix /
end
return / return to caller /

/------------------------/
/ restore prefix routine /
/------------------------/
restpref:

Address ISREDIT
prefx = sysvar(syspref) / get prefix variable /
if prefx = '' then do / if profile noprefix /
if sprefx <> '' then do / if saved /
prefx = sprefx / restore it /
"profile prefix("prefx")" / work with prefix /
end
end
return / return to caller /

code · Rexx

September 6, 2013 at 3:25:14 PM GMT+2 · permalien

·

?qHJzFw

Guides d’installation/utilisation des Box ADSL

Liste des notices d’installation de toutes les box internet (neuf-box, dartybox, etc.) et avec plusieurs versions.

box

September 6, 2013 at 3:02:18 PM GMT+2 · permalien

·

http://www.veilleurs.info/archives/6694

MathJax

Une lib JS pour afficher des formules mathématiques dans les pages web. Le rendu peut être fait en HTML et même SVG.
Il utilise la syntaxe TEX et/ou MathML.

Pour l’ajouter à une page, inclure ce fichier dans le code source : http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML (ou télécharger le JS sur l'hébergement et lier ce fichier là).

MathJax est sous licence Apache.

JavaScript · code

September 6, 2013 at 10:40:28 AM GMT+2 · permalien

·

http://www.mathjax.org/