Geek Girl 1970's
What an incredible retro photo. I love the look, short skirt, bright colors, and the hair. My first job was programming in COBOL on a very similar IBM 370 system. The IBM system was a S/370-135 that we upgraded to a S/370-138 running DOS/VS. I remember that we did not have enough memory for VM to run well, so we added an attached cabinet just to left of where this woman is standing. The full size cabinet, which you could physically stand in, increased our memory for 128K to a whopping 256K. We were in heaven and could run several programs now simultaneously under VM - 5 partitions. I remember an IPL/boot took almost an half hour. Any one else out there that remembers punch cards, JCL and ABEND S0C7 error codes?
I have always though of my self as an S0C7 code.
I found on eBay a years ago a IBM header plaque similar to the one above. In honor of my first IBM computer, I mounded it above an enclosed cabinet (fan cooled) I built that contains my current tower system, modem, router and backup drives. Yes, I built it the computer also. Current system - Asus P8P67 mother board, 16g memory, Intel I7 2600k 4.1 GHz - 4 cores 8 simultaneously threads and SSD storage (2x512g).
We have come along way Geek Girl!
What systems did you work on, fellow geek girls?
//IGYWCLG PROC LNGPRFX='IGY.V2R1M0',SYSLBLK=3200, // LIBPRFX='CEE',GOPGM=GO //* //* COMPILE, LINK EDIT AND RUN A COBOL PROGRAM //* //* PARAMETER DEFAULT VALUE USAGE //* LNGPRFX IGY.V2R1M0 //* SYSLBLK 3200 //* LIBPRFX CEE //* GOPGM GO //* //* CALLER MUST SUPPLY //COBOL.SYSIN DD ... //* //COBOL EXEC PGM=IGYCRCTL,REGION=2048K //STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP, // DISP=SHR //SYSPRINT DD SYSOUT=* //SYSLIN DD DSNAME=&&LOADSET,UNIT=VIO, // DISP=(MOD,PASS),SPACE=(TRK,(3,3)), // DCB=(BLKSIZE=&SYSLBLK) //SYSUT1 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT2 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT3 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT4 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT5 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT6 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT7 DD UNIT=VIO,SPACE=(CYL,(1,1)) //LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K //SYSLIB DD DSNAME=&LIBPRFX..SCEELKED, // DISP=SHR //SYSPRINT DD SYSOUT=* //SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) // DD DDNAME=SYSIN //SYSLMOD DD DSNAME=&&GOSET(&GOPGM),SPACE=(TRK,(10,10,1)), // UNIT=VIO,DISP=(MOD,PASS) //SYSUT1 DD UNIT=VIO,SPACE=(TRK,(10,10)) //GO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)), // REGION=2048K //STEPLIB DD DSNAME=&LIBPRFX..SCEERUN, // DISP=SHR //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //SYSUDUMP DD SYSOUT=*
JCL - COBOL compile link and go stored procedure
I do not miss JCL