Geek Girl

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