user
pass
remember me
 
Gia to nomosxedeio
2017-10-09 21:58
Pota
2017-05-31 13:30
Gati
2017-04-03 15:24
 
11 result(s)
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-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-06-05 11:23 tags fonts , problems , mainframe
wait..Voting.. bad good
F x'D3015B' F x'D3015B'
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*