0.130
mari@pi mari@pi Κυρ. 11 Μαϊος. 2008 18:41 tags πειραιάς , πόλη 0 views 1 σχόλια
*
*
από tt39 tt39 2008-05-12 12:39
εξωγήινοι;;;
mari@pi mari@pi Κυρ. 11 Μαϊος. 2008 18:26 tags λίνουξ , επιφάνεια εργασίας 0 views
στη φώτο ο πειραιάς
στη φώτο ο πειραιάς
mari@pi mari@pi Παρ. 9 Μαϊος. 2008 23:01 tags άστρος 0 views 1 σχόλια
μέσα στο κάστρο του άστρους
μέσα στο κάστρο του άστρους
από thk thk 2008-05-09 23:14
Εδω προσγειωθήκαν οι εξωγήινοι και απο τότε έχουμε πελοποννήσιους. 
mari@pi mari@pi Παρ. 9 Μαϊος. 2008 18:40 tags κρήτη 0 views 1 σχόλια
ειναι ,, σας θυμίζει κάτι?
ειναι ,, σας θυμίζει κάτι?
από thk thk 2008-05-09 18:44
είναι industrial εκκλησάκι.
mari@pi mari@pi Δευ. 5 Μαϊος. 2008 14:48 tags mainframe , προγραμματισμός 0 views 1 σχόλια
//STEPICE EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INFILE DD DSN=LALAA.DATA.TEST,DISP=SHR
//TOOLIN DD *
COUNT FROM(INFILE) EMPTY
/*
από tt39 tt39 2008-05-05 14:51
No comprendo amigo.
mari@pi mari@pi Δευ. 5 Μαϊος. 2008 0:27 tags κομπιούτερ 0 views 1 σχόλια
crush n burn
crush n burn
από thk thk 2008-05-05 00:44
this thing happen wen the sata cable is not attached properly. But imagine the reaction when you have another disk crashed some days ago.
mari@pi mari@pi Πεμ. 24 Απρ. 2008 16:21 tags καράβι , θάλασσα 0 views
ο καπνός είναι από τις φωτιές που καίγανε γύρω απ΄την αθήνα τότε,01092007
ο καπνός είναι από τις φωτιές που καίγανε γύρω απ΄την αθήνα τότε,01092007
mari@pi mari@pi Τρι. 22 Απρ. 2008 22:14 tags όρος πατέρας , φυτά 0 views
,,
,,
mari@pi mari@pi Τρι. 22 Απρ. 2008 22:03 tags όρος πατέρας 0 views
*
*
mari@pi mari@pi Τρι. 22 Απρ. 2008 17:30 tags κρήτη , θάλασσα 0 views
φαλάσαρνα ,,
φαλάσαρνα ,,
mari@pi mari@pi Κυρ. 20 Απρ. 2008 15:46 tags κρήτη , θάλασσα 0 views
falasarna
falasarna
mari@pi mari@pi Σαβ. 19 Απρ. 2008 18:28 tags πειραιάς 0 views 1 σχόλια
*
*
από thk thk 2008-05-14 20:09
που να έρθει και ο θερμοπυρηνικός χειμώνας
mari@pi mari@pi Σαβ. 19 Απρ. 2008 18:07 tags κομπιούτερ 0 views
more cables ,,
more cables ,,
mari@pi mari@pi Τετ. 16 Απρ. 2008 10:38 tags mainframe , προγραμματισμός 0 views
print ITL2OF5 barcode using the pagedef (page definition)
-------------------------------------------
      ,,,  
      PRINTLINE FONT OAB
            POSITION 0.00 IN 0.00 IN /*BARCODE T.K    LINE 8 */
        FIELD START 1 LENGTH 6
                             FONT OAB
                             POSIT ION 7.91 IN 6.20 IN
                             DIREC TION DOWN
                             BARCO DE BARC1
                                  TYPE ITL2OF5
                                  MOD 1
                                  HRI BELOW HRIFONT OAB
                                  HEIGHT 80.00 PELS
                                  MODWIDTH 15;

n if it's the CODE128 barcode u use
TYPE CODE128
mari@pi mari@pi Τρι. 15 Απρ. 2008 14:47 tags mainframe , προγραμματισμός 0 views
icetool splice (output not unique)
The proc :
//MAIPROC PROC INFILE=XXXXXX,OUTFILE=XXXXXX,ICETLIN=XXXXXX,
// CTL1=XXXXXX,CTL2=XXXXXX,CTL3=XXXXXX,CTL4= XXXXXX,
// CTL5=XXXXXX,CTL6=XXXXXX,CTL7=XXXXXX
//*****UNLOAD*SELECTED*ID****DATA*FILE***FROM****D​​​​​B2*********
//STPUNLD EXEC PDB2
//SYSUDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSTSIN DD DSN=MAI.SQL.SYSTSIN(SQL1),DISP=SHR
//SYSREC00 DD DSN=&&SELCTID,
// SPACE=(1024,(10,10)),DISP=(NEW,PASS)
//SYSREC01 DD DSN=&&SYSREC01,
// SPACE=(1024,(10,10)),DISP=(NEW,DELETE)
//SYSPUNCH DD DSN=&&SYSPUNCH,
// SPACE=(800,(15,15)),DISP=(NEW,DELETE)
//SYSIN DD DSN=MAI.TEST.SYSIN(CMODSQL1),DISP=SHR
//*-----------------------------------------------​​​​​-------*
//*---OMIT-RECORDS-TOY-IN1-*<>*-SELECTED--ID​​​​​S-STO-IN2----*
//*-----IN1---ALL-RECORDS----NOT-UNIQUE-ID--------​​​​​-------*
//*-----IN2---SELECTED--IDS-------------------CHAR​​​​​(4)----*
//*-----OUT1---:IN IN1 (AND) NOT IN IN2------------------*
//*-----------*******-19112007--------------------​​​​​-------*
// IF STPUNLD.G.RC<=4 THEN
//STEPICE EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=&INFILE.,DISP=SHR
//IN2 DD DSN=&&SELCTID,DISP=(SHR,DELETE)
//***
//I2 DD DSN=&&I2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP =(MOD,DELETE)
//F1 DD DSN=&&F1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP =(MOD,DELETE)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP =(MOD,DELETE)
//TMPOUT1 DD DSN=&&TMPOUT1,UNIT=SYSDA,SPACE=(CYL,(5,5))​​​​​,
// DISP=(MOD,DELETE)
//****
//OUT1 DD DSN=&OUTFILE.,DISP=SHR
//TOOLIN DD DSN=&ICETLIN.,DISP=SHR
//*
//CTL1CNTL DD DSN=&CTL1.,DISP=SHR
//CTL2CNTL DD DSN=&CTL2.,DISP=SHR
//CTL3CNTL DD DSN=&CTL3.,DISP=SHR
//CTL4CNTL DD DSN=&CTL4.,DISP=SHR
//CTL5CNTL DD DSN=&CTL5.,DISP=SHR
//CTL6CNTL DD DSN=&CTL6.,DISP=SHR
//CTL7CNTL DD DSN=&CTL7.,DISP=SHR
// ENDIF

The jobaki :
//MAIJOBA EXEC MAIPROC,
// INFILE=MAI.DATA.ALLPRNT,
// OUTFILE=MAI.DATA.TOPRINT,
// ICETLIN=MAI.TEST.SYSIN(TOOLIN),
// CTL1=MAI.TEST.CCARD(MCTL1),
// CTL2=MAI.TEST.CCARD(MCTL2),
// CTL3=MAI.TEST.CCARD(MCTL3),
// CTL4=MAI.TEST.CCARD(MCTL4),
// CTL5=MAI.TEST.CCARD(MCTL5),
// CTL6=MAI.TEST.CCARD(MCTL6),
// CTL7=MAI.TEST.CCARD(MCTL7)

The ccards :     (εδώ INFILE - ID (38,4,CH) μήκος αρχείου 255)
ICETLIN
000001 COPY FROM(IN2) TO(I2) USING(CTL1)
000002 SELECT FROM(IN1) TO(F1) ON(38,4,CH) FIRST
000003 SELECT FROM(I2) TO(F1) ON(38,4,CH) FIRST
000004 SELECT FROM(F1) TO(T1) ON(38,4,CH) FIRSTDUP USING(CTL2)
000005 SELECT FROM(F1) TO(T1) ON(38,4,CH) NODUPS USING(CTL3)
000006 COPY FROM(IN1) TO(T1) USING(CTL4)
000007 COPY FROM(I2) TO(T1) USING(CTL5)
000008 SPLICE FROM(T1) TO(TMPOUT1) ON(38,4,CH) -
000009 WITHALL WITH(1,256) USING(CTL6)
000010 SORT FROM(TMPOUT1) TO(OUT1) USING(CTL7)
CTL1
000001 OUTREC FIELDS=(38:1,4)
CTL2
000001 OUTFIL FNAMES=T1,OVERLAY=(256:C'DD')
CTL3
000001 OUTFIL FNAMES=T1,OVERLAY=(256:C'UU')
CTL4
000001 OUTFIL FNAMES=T1,OVERLAY=(256:C'11')
CTL5
000001 OUTFIL FNAMES=T1,OVERLAY=(256:C'22')
CTL6
000001 OUTFIL FNAMES=TMPOUT1,INCLUDE=(256,2,CH,EQ,C'1U'),
000002 BUILD=(1,255)
CTL7
000001 SORT FIELDS=(9,4,CH,A,38,4,CH,A)

στη περίπτωση που το πεδίο ID είναι σε μορφή packed μέσα στο αρχείο INFILE
The ccards :    (εδώ INFILE - ID (1,3,PD) μήκος αρχείου 400)
ICETLIN
000001 COPY FROM(IN2) TO(I2) USING(CTL1)
000002 SELECT FROM(IN1) TO(F1) ON(1,3,PD) FIRST
000003 SELECT FROM(I2) TO(F1) ON(1,3,PD) FIRST
000004 SELECT FROM(F1) TO(T1) ON(1,3,PD) FIRSTDUP USING(CTL2)
000005 SELECT FROM(F1) TO(T1) ON(1,3,PD) NODUPS USING(CTL3)
000006 COPY FROM(IN1) TO(T1) USING(CTL4)
000007 COPY FROM(I2) TO(T1) USING(CTL5)
000008 SPLICE FROM(T1) TO(TMPOUT1) ON(1,3,PD) -
000009 WITHALL WITH(1,401) USING(CTL6)
000010 SORT FROM(TMPOUT1) TO(OUT1) USING(CTL7)
CTL1
000001 OUTREC FIELDS=(1:1,4,ZD,TO=PD,LENGTH=3)
CTL2-3-4-5-6  παρόμοιες με παραπάνω*same as above
CTL7
000001 SORT FIELDS=(136,4,CH,A,1,3,PD,A)


οοουφ σοοόρταρα ,,
mari@pi mari@pi Σαβ. 12 Απρ. 2008 17:27 tags πειραιάς , πόλη 1 views
πορτοκαλί και μαύρο -πάνω απ΄την πόλη
-άλλη μια φώτο απτην ταράτσα προφήτη ηλια
πορτοκαλί και μαύρο -πάνω απ΄την πόλη -άλλη μια φώτο απτην ταράτσα προφήτη ηλια
mari@pi mari@pi Σαβ. 12 Απρ. 2008 17:19 tags κρήτη 0 views
στο ενυδρείο στο ηράκλειο ,,
στο ενυδρείο στο ηράκλειο ,,
mari@pi mari@pi Πεμ. 10 Απρ. 2008 15:04 tags γκραφιτι , αθήνα 0 views
krahο!?
krahο!?
mari@pi mari@pi Πεμ. 10 Απρ. 2008 12:13 tags κομπιούτερ 0 views
transferring my pc to its new box,, (to remember where the colored cables go
transferring my pc to its new box,, (to remember where the colored cables go