13 result(s)
from mari@pi mari@pi on 2009-06-03 09:40 tags programming , comics
wait..Voting.. bad good
goto 25 best? programmer webcomic strips
from mari@pi mari@pi on 2009-04-09 14:00 tags programming
wait..Voting.. bad good
2 comments , last on 2009-05-06 14:36 by mari@pi
had(once more again) to massively remove some file extension from files#!/usr/local/bin/python# Remove extension from my files# Author: mayia pi 2009import osextension = raw_input('enter the extension u want removed ?(without the dot):\n')ext = '.' + extensionprint 'search n destroy ' + ext + ' ...'...
from mari@pi mari@pi on 2009-01-28 13:45 tags mainframe , programming
wait..Voting.. bad good
wondering in the mainframe i came acrossa simple rexx to tell me if my dataset is empty or not empty or does not exist at all ~ arg dsname say DSNAME x=LISTDSI(DSNAME) if x = 0 then do if SYSUSED > 0 then do Say 'Dataset 'DSNAME' exists and is not empty' exit 0 end;...
from mari@pi mari@pi on 2008-08-28 12:54 tags programming
wait..Voting.. bad good
# greek #alias ls='ls --show-control-chars'cygwin.bat @echo offC:chdir C:\cygwin\binbash --login -icygwin-rxvt.bat@echo offC:REM set EDITOR=vimREM set VISUAL=vimchdir C:\cygwin\binrxvt -e bash --login -iREM rxvt -geometry 130x60 -bg black -fg gray -cr white -fn "Lucida Console-11" -sr -sl ...
from mari@pi mari@pi on 2008-08-05 09:12 tags mainframe , programming
wait..Voting.. bad good
1 comments , last on 2008-08-05 16:39 by mari@pi
#!/bin/sh#system date todaytod=`date +%m/%d/%y`echo $tod#arsdate today answerarstod=`/usr/lpp/ars/bin/arsdate $tod`echo $arstod#ars today date numberarstoday=`echo $arstod|awk '{print $3}'`echo $arstodaycause maybe u need to do something like this,,,#/usr/lpp/ars/bin/arsdoc get -h MAIARCHIVE -u adm...
from mari@pi mari@pi on 2008-06-23 15:30 tags programming , mainframe
wait..Voting.. bad good
1 comments , last on 2008-06-23 17:20 by thk
//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,// ...
from mari@pi mari@pi on 2008-05-22 15:51 tags programming , mainframe
wait..Voting.. bad good
5 comments , last on 2008-05-29 18:02 by mari@pi
/* rexx */drop l.'execio * diskr MYLIST (stem l. finis'if rc ^= 0 then do say 'error in reading MYLIST file !!!' say 'rc='rc exit 1enddrop nj.;j=0j=j+1;nj.j='//MAI JOB (000),ME,CLASS=C,MSGCLASS=X,'J=J+1;NJ.J='// ​​​​​ NOTIFY=ME,TYPRUN=SCAN,'​​​j=j+1;nj.j='// ​​​...
from mari@pi mari@pi on 2008-05-19 12:43 tags programming , mainframe
wait..Voting.. bad good
1 comments , last on 2008-05-20 00:32 by thk
/*metavlites thesis barcode*/ &BC_XPOS = MM(200); &BC_YPOS = MM(204); IF NOT EXIST(&B2); THEN ; &B2 = 9999; ENDIF ; IF NOT EXIST(&TAX_PROIGOYMENO); THEN ; &TAX_PROIGOYMENO = '00000'; ENDIF ; /*dimiourgia string barcode*/ B12 = NUMPICTURE(B1,'0')!NUMPICTUR...
from mari@pi mari@pi on 2008-05-19 12:22 tags programming , mainframe
wait..Voting.. bad good
ID DIVISION.PROGRAM-ID MAICHDG.*-------------------------------------------------*- YPOLOGISMOS CH-DIGIT T.K ME MODULUS 10*- ​​​​ COMMO​N-A​REA*- ​​​​ IN ARIQMOS 9(5)*- OUT CHDG5-N 9*- ​​​​ ME-15-07-2006*-------------------------------------------------EN...
from mari@pi mari@pi on 2008-05-05 14:48 tags programming , mainframe
wait..Voting.. bad good
1 comments , last on 2008-05-05 14:51 by tt39
//STEPICE EXEC PGM=ICETOOL//TOOLMSG DD SYSOUT=*//DFSMSG DD SYSOUT=*//INFILE DD DSN=LALAA.DATA.TEST,DISP=SHR//TOOLIN DD *COUNT FROM(INFILE) EMPTY/*
from mari@pi mari@pi on 2008-04-16 10:38 tags mainframe , programming
wait..Voting.. bad good
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 ...
from mari@pi mari@pi on 2008-04-15 14:47 tags mainframe , programming
wait..Voting.. bad good
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=*...
from mari@pi mari@pi on 2008-04-15 13:32 tags programming , mainframe
wait..Voting.. bad good
//AFP2PDF  EXEC PGM=AOPBATCH,// PARM='/afp2pdf -c eu -o //DD:PDFOUT'//STDIN DSN=LALAA.DATA.AFPIN,DISP=SHR//PDFOUT DSN=LALAA.DATA.PDFOUT,DISP=(OLD,CATLG,DELETE),// DCB=(RECFM=VB,LRECL=4096),SPACE=(CYL,(1,1))//STDOU​TSYSOUT=*//STDERR DD SYSOUT=*//*living in the mainframe*