mayia~pi

mari@pi βίντεο φωτογραφίες μουσική

« 1 2 ... 72 73 74 75 76 77 78 79 80 »

komo hills

mari@pi Τρι. 30 Σεπ. 2008 11:14 tags

κρήτη , θάλασσα 0 views

one horeiiii for madpy released!

ψηφιακή εβδομάδα, στην αθήνα

mari@pi Παρ. 19 Σεπ. 2008 10:17 tags

εκδηλώσεις 0 views 1 σχόλια

παίζει κι αυτό σε κάνα μήνα από τώρα

σχόλια

από

thk 2008-10-06 12:09

Μάλλον οι κύριοι έχουν κάποιο πρόβλημα με το email. 2 τους έχω στείλει αλλα .. καμια απάντηση..

οροπέδιο

mari@pi Πεμ. 18 Σεπ. 2008 18:28 tags

κρήτη 0 views 2 σχόλια

,,στο δρόμο για Τρεις εκκλησιές,, ένας αετός?

σχόλια

από

tt39 2008-09-30 12:36

Μάλλον απλά δεν καθάρισες τη μηχανή σου. Όλοι ξέρουμε ότι δεν έχει αετούς στην Κρήτη.

από PROS TT39 2008-10-01 09:05

μαλλον δεν στα παν καλά. Ο ψηλορειτης εχει αετούς και μάλιστα πολά είδη, όπου αρκετά απο αυτά είναι σπάνια. ΦΩΤΟΓΡΑΦΙΑ ΔΕΝ ΤΟΥΣ ΕΧΩ ΒΓΑΛΕΙ ΓΙΑΤΙ ΠΑΩ ΕΚΕΙ ΣΥΧΝΑ & ΟΧΙ ΩΣ ΤΟΥΡΙΣΤΑΣ ΩΣΤΕ ΝΑ ΚΥΚΛΟΦΟΡΩ ΣΑ ΜΑΛΑΚΑΣ ΜΕ ΦΩΤΟΓΡΑΦΙΚΗ ΜΗΧΑΝΗ & ΝΑ ΒΓΑΖΩ ΦΩΤΟΓΡΑΦΙΕΣ. ΕΠΙΠΛΕΟΝ ΧΑΡΑΚΤΗΡΙΣΤΙΚΟ ΤΩΝ ΟΡΕΙΝΩΝ ΠΕΡΙΟΧΩΝ ΕΙΝΑΙ ΤΟ ΠΑΘΟΣ ΓΙΑ ΤΗ ΛΕΥΤΕΡΙΑ , ΧΑΡΑΚΤΗΡΙΣΤΙΚΟ ΤΟΥ ΑΕΤΟΥ , ΟΠΟΥ ΤΟ ΒΛΕΠΕΙΣ ΣΥΧΝΑ ΣΤΙΣ ΜΑΝΤΙΝΑΔΕΣ & ΤΑ ΤΡΑΓΟΥΔΙΑ ΤΩΝ ΚΡΗΤΙΚΩΝ & ΑΥΤΟ ΓΙΑΤΙ Ο ΑΕΤΟΣ ΕΙΝΑΙ ΣΥΝΗΘΕΣ & ΠΑΣΙΓΝΩΣΤΟ ΠΤΗΝΟ ΠΟΥ ΖΕΙ ΣΤΗΝ ΚΡΗΤΗ. ΑΠΛΑ ΟΙ ΚΑΛΟΜΑΘΗΜΕΝΟΙ ΔΕΝ ΜΠΟΡΟΥΝ ΝΑ ΠΑΝΕ ΣΤΑ ΜΕΡΟΙ ΤΟΥΣ, ΒΛΕΠΕΙΣ ΖΟΥΝ ΣΕ ΜΕΓΑΛΟ ΥΨΟΜΕΤΡΟ ΩΣΤΕ ΝΑ ΤΟΥΣ ΔΟΥΝ.

ταξίδι

mari@pi Παρ. 29 Αυγ. 2008 19:42 tags

θάλασσα 0 views

από το δωμάτιο στα Πιτσίδια, το Κομό

περί cygwin ,,,

mari@pi Πεμ. 28 Αυγ. 2008 12:54 tags

προγραμματισμός 0 views

# greek #
alias ls='ls --show-control-chars'

cygwin.bat

@echo off
C:
chdir C:\cygwin\bin
bash --login -i

cygwin-rxvt.bat


@echo off
C:
REM set EDITOR=vim
REM set VISUAL=vim
chdir C:\cygwin\bin
rxvt -e bash --login -i
REM rxvt -geometry 130x60 -bg black -fg gray -cr white -fn "Lucida Console-11" -sr -sl 5000 -j -cr white -tn rxvt -e bash -li

ένα πρωϊνό

mari@pi Τρι. 5 Αυγ. 2008 19:05 tags

όρος πατέρας 0 views

βγήκα στις 8 λίγο παραέξω να πιάσει το κινητό,,

how can i have the arsdate date today?!

mari@pi Τρι. 5 Αυγ. 2008 9:12 tags

mainframe , προγραμματισμός 0 views 1 σχόλια

 #!/bin/sh
#system date today
tod=`date +%m/%d/%y`
echo $tod

#arsdate today answer
arstod=`/usr/lpp/ars/bin/arsdate $tod`
echo $arstod

#ars today date number
arstoday=`echo $arstod|awk '{print $3}'`
echo $arstoday

cause maybe u need to do something like this,,,


#/usr/lpp/ars/bin/arsdoc get -h MAIARCHIVE -u admin -p adminpass -v -c -d /u/mai -o test.out  -G 'APPGROUP' -i "WHERE INDEX1=5013 AND INDEX2=0 AND INDEX3 NOT IN (select distinct id from maidatabase.arsusrgrpid) AND LOAD_DATE=$arstoday" -L 3

running the thing---get that awkward formatted date!

/u/mai/>
./ars2day
08/05/08
08/05/08 -> 14097
14097

σχόλια

από

mari@pi 2008-08-05 16:39

it seems that awkward ibm formatted date is the number of days since 01.01.1970 ?

wishing well

mari@pi Παρ. 18 Ιούλ. 2008 15:00 tags

όρος πατέρας 0 views 1 σχόλια

,,fetching our water ,,to drink

σχόλια

από

jonmak 2009-07-15 18:39

ego pantos den ksanapino apo ekei....
olo k kapoios trelos tha exei katourisei-xesei ekei mesa!!!

screen~elyssa

mari@pi Παρ. 18 Ιούλ. 2008 14:29 tags

λίνουξ , επιφάνεια εργασίας 1 views

screen my elyssa!

sleep

mari@pi Παρ. 18 Ιούλ. 2008 14:21 tags

πόλη 0 views

latest desktop wallpaper,,another one for the city

χόρτο

mari@pi Σαβ. 5 Ιούλ. 2008 16:17 tags

άστρος , φυτά 0 views

άγρια χόρτα της παραλίας . χόρτο νο1

κορμός

mari@pi Σαβ. 5 Ιούλ. 2008 15:50 tags

άστρος 0 views

δίπλα στη παραλία στο άστρος~η σκιά για τα αυτοκίνητα

snooo

mari@pi Κυρ. 29 Ιούν. 2008 11:59 tags

πειραιάς 0 views 1 σχόλια

σχόλια

από

tt39 2008-06-30 09:31

Καλέ τι μας λες καλοκαιριάτικα, εδώ λειώνουμεεεεε

with some rexx

mari@pi Δευ. 23 Ιούν. 2008 15:30 tags

προγραμματισμός 1 views 1 σχόλια

//CMODCLL  JOB (000),MAI,CLASS=C,MSGCLASS=X,NOTIFY=MAI,
//         MSGLEVEL=(1,1),REGION=0M,TIME=1440
//************PROS SUBMIT***************************
//LIBSRCH  JCLLIB ORDER=(LIBRARIES,,,)
//INC      INCLUDE MEMBER=JOBLIBRARIES
//RUNREX0  EXEC PGM=IKJEFT1A,
//         DYNAMNBR=30,REGION=0M,
//         PARM='%CMODRX JOBNAME APPGROUP APPLICATION DATASET'
//SYSEXEC  DD DSN=STH.T.REXX,DISP=SHR
//INC      INCLUDE MEMBER=SYSOUT
//SYSTSIN  DD DUMMY

attention -- max PARM length is 100 characters (cols 16-71)

----+----1----+----2----+----3----+----4----+----5----+----6----+----7-
         ,,,PARM='%CMODRX  JOBNAME  APPGROUP  APPLICATION DATASET1 DATA
               SET2 DATASET3 DATASET4'

( else you get JCL error > IEF642I excessive parameter length in the parm field )

the above calls the following rexx - CMODRX (with parameters job name,application group, application,dataset,,or datasets)


arg a
drop l.;l=0
do w=1 to words(a)
   l=l+1;l.l=word(a, w)
   say l.l
end
l.0=words(a)
drop job.;i=0
i=i+1;job.i="//" word(l.1, 1) " JOB (000),ME,CLASS=A,"
i=i+1;job.i="//      NOTIFY=YOU,TYPRUN=HOLD,"
i=i+1;job.i="//      MSGLEVEL=(1,1),REGION=0M"
i=i+1;job.i="//*"
i=i+1;job.i="//LIBSRCH JCLLIB ORDER=(LIBRARIES,,)"
i=i+1;job.i="//INC    INCLUDE MEMBER=JOBLIBRARIES"
do k=4 to l.0
   i=i+1;job.i="//STEP"k-4" EXEC CLOAD,"
   i=i+1;job.i="//     INFILE="word(l.k, 1)","
   i=i+1;job.i="//     APPL="word(l.2, 1)","
   i=i+1;job.i="//     APPGROUP='"word(l.3, 1)"'"
   i=i+1;job.i="// IF RC=0 THEN"
   i=i+1;job.i="//RENFILE EXEC PGM=IKJEFT01,DYNAMNBR=30,REGION=0M"
   i=i+1;job.i="//SYSPRINT    DD   SYSOUT=*"
   i=i+1;job.i="//SYSTSPRT    DD   SYSOUT=*"
   i=i+1;job.i="//SYSTSIN     DD   *"
   i=i+1;job.i="  DELETE '"word(l.k, 1)".BAK'"    
   i=i+1;job.i="  RENAME '"word(l.k, 1)"' -"   
   i=i+1;job.i="         '"word(l.k, 1)".BAK'"   
   i=i+1;job.i="// ENDIF"
end
job.0=i
NEWSTACK
DO i=1 TO job.0
    UPPER job.i
    QUEUE job.i
END
QUEUE " "

'SUBMIT *'
exit 0

which calls the following proc - CLOAD (with parameters application group, application,dataset)


//CLOAD    PROC INFILE=XXXXXXX,
//         APPGROUP=XXXXX,
//         APPL=XXXXXX
//ARSLOAD  EXEC PGM=ARSLOAD,REGION=0M,
//  PARM=('ENVAR("LC_ALL=EL_GR.IBM-875")',
//  '/-h ARCHIVE -n -g "&APPGROUP." -a &APPL. -s IN ln')
//STEPLIB  DD DISP=SHR,DSN=LIBRARIES
//SYSPRINT DD SYSOUT=*,RECFM=FBA,LRECL=121,BLKSIZE=6050
//SYSOUT   DD SYSOUT=*
//INPSTATS DD SYSOUT=*,RECFM=FBA,LRECL=133
//IN       DD DSN=&INFILE.,DISP=SHR

which performs an arsload of the infile on CMOD ( IBM content manager on demand)

cool ha !??

σχόλια

από