Re: Linux ist Spielzeug ..und so wird es auch immer sein..bis in alle Ewigkeit.. - Microsoft verspricht besseren Datenschut…

> copy con text.txt
> … und dann kannst voll in die Tasten semmeln, und dein
> wohlüberlegtes Programm auf einmal eingeben. Jaaah, das ist der wahre
> Dosen-Mode!
Doch schon zulange her Kennst du noch”for %1 in (*.txt) do print %1″ ?
> Bleib lieber bei Deinen Mainframes :^)
Pft. Nur eine Plattform ist langweilig!
//MELPRINT JOB (’BEZ=DRUCKEN’,'ANR=RZPRINT’),
// MELANCHTOR,CLASS=1,NOTIFY=U00ME,
// MSGCLASS=T
//SCRATCH EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE TEXT1.CONTENT.OUT
DELETE TEXT1.CONTENT.IND
DELETE TEXT1.CONTENT.OBJ
DELETE TEXT1.CONTENT.ALL
//*
//ACIF EXEC PGM=APKACIF,REGION=4M
//STEPLIB DD DISP=SHR,DSN=SYS1.AFP.ACIF.SAPKMOD1
//INPUT DD DSN=TEXT1.CONTENT.ORG,DISP=SHR
//OUTPUT DD DSN=TEXT1.CONTENT.OUT,DISP=(NEW,CATLG),
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VBA,DSORG=PS),
// SPACE=(32760,(5,5)),UNIT=SYSDA
//RESOBJ DD DSN=TEXT1.CONTENT.OBJ,DISP=(NEW,CATLG),
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VBA,DSORG=PS),
// SPACE=(32760,(5,5)),UNIT=SYSDA
//INDEX DD DSN=TEXT1.CONTENT.IND,DISP=(NEW,CATLG),
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VBA,DSORG=PS),
// SPACE=(32760,(5,5)),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
FORMDEF=DUMMY
PAGEDEF=DUMMY
RESTYPE=ALL
FONTLIB=SYS1.AFP.FONT300
PSEGLIB=SYS1.AFP.PSEGLIB
OVLYLIB=SYS1.AFP.OVERLIB
PDEFLIB=SYS1.AFP.PDEFLIB
FDEFLIB=SYS1.AFP.FDEFLIB
TRC=YES
CC=YES
TRIGGER1=*,1,’1′
TRIGGER2=5,11,’HEISE’
FIELD1=’FORUM’
FIELD2=5,36,10
FIELD3=7,74,8
INDEX1=’ART’,FIELD1
INDEX2=’POSTER’,FIELD2
INDEX3=’DATUM’,FIELD3
INDEXOBJ=ALL
//*
//MERGE EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=TEXT1.CONTENT.IND,DISP=SHR
// DD DSN=TEXT1.CONTENT.OBJ,DISP=SHR
// DD DSN=TEXT1.CONTENT.OUT,DISP=SHR
//SYSUT2 DD DSN=TEXT1.CONTENT.ALL,DISP=(NEW,CATLG),
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VBA,DSORG=PS),
// SPACE=(32760,(15,15)),UNIT=SYSDA
Und dann das ganze nur noch durch afp2web murgeln.
cu
Aleco