Sebastian Schwinn — sschw.dev

Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  12 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 WORKING-STORAGE SECTION.                                                 
03
000003
 01 SSCHW-RECORD.                                                         
04
000004
     05 IDENTITY.                                                         
05
000005
       10 NAME-VAL     PIC X(17)  VALUE 'SEBASTIAN SCHWINN'.              
06
000006
       10 NAME-DSCRPTN PIC X(4)   VALUE 'NAME'.                           
07
000007
                                                                          
08
000008
                                                                          
09
000009
                                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  12 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 WORKING-STORAGE SECTION.                                                 
03
000003
 01 SSCHW-RECORD.                                                         
04
000004
     05 BACKGROUND.                                                       
05
000005
       10 NAME-VAL     PIC X(26)  VALUE 'MSC ELECTRICAL ENGINEERING'.     
06
000006
       10 NAME-DSCRPTN PIC X(9)   VALUE 'EDUCATION'.                      
07
000007
                                                                          
08
000008
                                                                          
09
000009
                                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  12 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 WORKING-STORAGE SECTION.                                                 
03
000003
 01 SSCHW-RECORD.                                                         
04
000004
     05 CAREER-CURR.                                                      
05
000005
       10 NAME-VAL     PIC X(28)  VALUE 'COBOL DEVELOPER AT RETROCODE'.   
06
000006
       10 NAME-DSCRPTN PIC X(9)   VALUE 'CURR-ROLE'.                      
07
000007
                                                                          
08
000008
                                                                          
09
000009
                                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  12 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 WORKING-STORAGE SECTION.                                                 
03
000003
 01 SSCHW-RECORD.                                                         
04
000004
     05 CAREER-PREV.                                                      
05
000005
       10 NAME-VAL     PIC X(19)  VALUE 'EMBEDDED C / OPC-UA'.            
06
000006
       10 NAME-DSCRPTN PIC X(9)   VALUE 'PREV-ROLE'.                      
07
000007
                                                                          
08
000008
                                                                          
09
000009
                                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  12 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 WORKING-STORAGE SECTION.                                                 
03
000003
 01 SSCHW-RECORD.                                                         
04
000004
     05 SKILLS.                                                           
05
000005
       10 NAME-VAL     PIC X(24)  VALUE 'PYTHON  SQL-DB2  JCL  JS'.       
06
000006
       10 NAME-DSCRPTN PIC X(9)   VALUE 'LANGUAGES'.                      
07
000007
                                                                          
08
000008
                                                                          
09
000009
                                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  12 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 WORKING-STORAGE SECTION.                                                 
03
000003
 01 SSCHW-RECORD.                                                         
04
000004
     05 INTERESTS.                                                        
05
000005
       10 TECH.                                                           
06
000006
         15 NAME-VAL     PIC X(23)  VALUE '3D PRINTING - TINKERING'.      
07
000007
       10 HOBBIES.                                                        
08
000008
         10 NAME-VAL     PIC X(27)  VALUE 'TENNIS + TABLE TENNIS CLUBS'.  
09
000009
         10 NAME-DSCRPTN PIC X(9)   VALUE 'COMMUNITY'.                    
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 LOCAL-STORAGE SECTION.                                                   
03
000003
 01 ABOUT-ME.                                                             
04
000004
                                                                          
05
000005
     05 WORK-NOW.                                                         
06
000006
       10 COMPANY PIC X(30) VALUE 'RETROCODE'.                            
07
000007
       10 ROLE    PIC X(30) VALUE 'COBOL DEVELOPER'.                      
08
000008
       10 SECTOR  PIC X(25) VALUE 'FINANCIAL SECTOR'.                     
09
000009
       10 SINCE   PIC 9(4)  VALUE 2025.                                   
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
13
000013
                                                                          
14
000014
                                                                          
15
000015
                                                                          
16
000016
                                                                          
17
000017
                                                                          
18
000018
                                                                          
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 LOCAL-STORAGE SECTION.                                                   
03
000003
 01 ABOUT-ME.                                                             
04
000004
                                                                          
05
000005
     05 WORK-BFRE.                                                        
06
000006
       10 COMPANY PIC X(30) VALUE 'HILSCHER'.                             
07
000007
       10 ROLE    PIC X(30) VALUE 'C DEVELOPER'.                          
08
000008
       10 DOMAIN  PIC X(30) VALUE 'INDUSTRIAL AUTOMATION'.                
09
000009
       10 TECH    PIC X(40) VALUE 'OPC UA / EMBEDDED C'.                  
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
13
000013
                                                                          
14
000014
                                                                          
15
000015
                                                                          
16
000016
                                                                          
17
000017
                                                                          
18
000018
                                                                          
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 LOCAL-STORAGE SECTION.                                                   
03
000003
 01 ABOUT-ME.                                                             
04
000004
                                                                          
05
000005
     05 STUDIES.                                                          
06
000006
       10 DEGREE  PIC X(5)  VALUE 'MSC'.                                  
07
000007
       10 FIELD   PIC X(30) VALUE 'ELECTRICAL ENGINEERING'.               
08
000008
       10 GRADE   PIC X(20) VALUE 'WITH DISTINCTION'.                     
09
000009
                                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
13
000013
                                                                          
14
000014
                                                                          
15
000015
                                                                          
16
000016
                                                                          
17
000017
                                                                          
18
000018
                                                                          
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 LOCAL-STORAGE SECTION.                                                   
03
000003
 01 ABOUT-ME.                                                             
04
000004
                                                                          
05
000005
     05 PRG-LANGUAGES PIC X(10).                                          
06
000006
       88 COBOL       VALUE 'PRIMARY'.                                    
07
000007
       88 C           VALUE 'PRIMARY'.                                    
08
000008
       88 CPP         VALUE 'KNOWN'.                                      
09
000009
       88 PYTHON      VALUE 'KNOWN'.                                      
10
000010
       88 SQL-DB2     VALUE 'KNOWN'.                                      
11
000011
       88 JCL         VALUE 'KNOWN'.                                      
12
000012
       88 SHELL       VALUE 'KNOWN'.                                      
13
000013
       88 JAVASCRIPT  VALUE 'KNOWN'.                                      
14
000014
       88 OPC-UA      VALUE 'KNOWN'.                                      
15
000015
                                                                          
16
000016
                                                                          
17
000017
                                                                          
18
000018
                                                                          
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 LOCAL-STORAGE SECTION.                                                   
03
000003
 01 ABOUT-ME.                                                             
04
000004
                                                                          
05
000005
     05 VOC-LANGUAGES PIC X(10).                                          
06
000006
       88 GERMAN    VALUE 'NATIVE'.                                       
07
000007
       88 ENGLISH   VALUE 'C2'.                                           
08
000008
       88 JAPANESE  VALUE 'BEGINNER'.                                     
09
000009
                                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
13
000013
                                                                          
14
000014
                                                                          
15
000015
                                                                          
16
000016
                                                                          
17
000017
                                                                          
18
000018
                                                                          
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 LINKAGE SECTION.                                                         
03
000003
 01 WORKLOAD.                                                             
04
000004
                                                                          
05
000005
     05 WORK-CURRENT.                                                     
06
000006
       10 COMPANY PIC X(30) VALUE 'RETROCODE'.                            
07
000007
       10 ROLE    PIC X(30) VALUE 'COBOL DEVELOPER'.                      
08
000008
       10 SECTOR  PIC X(25) VALUE 'FINANCIAL SECTOR'.                     
09
000009
       10 SINCE   PIC 9(4)  VALUE 2025.                                   
10
000010
       10 PROFILE PIC X(50) VALUE 'linkedin.com/in/sschwinn/'.            
11
000011
                                                                          
12
000012
                                                                          
13
000013
                                                                          
14
000014
                                                                          
15
000015
                                                                          
16
000016
                                                                          
17
000017
* LINKAGE: data passed from calling program context                       
18
000018
                                                                          
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 DATA DIVISION.                                                           
02
000002
 LINKAGE SECTION.                                                         
03
000003
 01 WORKLOAD.                                                             
04
000004
                                                                          
05
000005
     05 WORK-PREV.                                                        
06
000006
       10 COMPANY PIC X(30) VALUE 'HILSCHER'.                             
07
000007
       10 ROLE    PIC X(30) VALUE 'C DEVELOPER'.                          
08
000008
       10 DOMAIN  PIC X(30) VALUE 'INDUSTRIAL AUTOMATION'.                
09
000009
       10 TECH    PIC X(40) VALUE 'OPC UA / EMBEDDED C'.                  
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
13
000013
                                                                          
14
000014
                                                                          
15
000015
                                                                          
16
000016
                                                                          
17
000017
* LINKAGE: data passed from calling program context                       
18
000018
                                                                          
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 PROCEDURE DIVISION.                                                      
02
000002
 IMPRESSUM-SECTION.                                                       
03
000003
     DISPLAY                                                              
04
000004
                                                                          
05
000005
                                                                          
06
000006
                                                                          
07
000007
                                                                          
08
000008
                                                                          
09
000009
                                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
                                                                          
13
000013
                                                                          
14
000014
                                                                          
15
000015
                                                                          
16
000016
     END-DISPLAY                                                          
17
000017
* GOBACK TO TOP (DATA DIVISION)                                           
18
000018
     GOBACK                                                               
19
000019
     .                                                                    
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 PROCEDURE DIVISION.                                                      
02
000002
 CLAUDE SECTION.                                                          
03
000003
                                                                          
04
000004
 OVERVIEW.                                                                
05
000005
* THIS SECTION IS WRITTEN BY CLAUDE, THE AI THAT BUILT THIS               
06
000006
* SITE - NOT BY SEBASTIAN. SEE THE AUTHORSHIP CARD BELOW.                 
07
000007
                                                                          
08
000008
     DISPLAY 'SSCHW-DEV: CV, LINKS AND IMPRESSUM, ONE PUNCH CARD'         
09
000009
     END-DISPLAY                                                          
10
000010
                                                                          
11
000011
                                                                          
12
000012
* SCROLLING MOVES BETWEEN CARDS; NAVIGATION FOLLOWS COBOL'S               
13
000013
* OWN DIVISION / SECTION / PARAGRAPH STRUCTURE.                           
14
000014
* THE NEXT CARD GOES DEEPER ON HOW IT'S ACTUALLY BUILT.                   
15
000015
                                                                          
16
000016
* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION                             
17
000017
     EXIT PARAGRAPH                                                       
18
000018
     .                                                                    
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  20 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 PROCEDURE DIVISION.                                                      
02
000002
 CLAUDE SECTION.                                                          
03
000003
                                                                          
04
000004
 ARCHITECTURE.                                                            
05
000005
* .PCOB IS A SMALL DSL - HAND-WRITTEN TEXT, PARSED INTO A                 
06
000006
* DIVISION/SECTION/CARD/LINE TREE, TOKENIZED PER LINE SHAPE,              
07
000007
* THEN COMPILED AT BUILD TIME INTO WHAT THE RENDERER NEEDS.               
08
000008
* @IMPORT MERGES EVERY FILE INTO ONE SHARED ANCHOR REGISTRY -             
09
000009
* ANY CARD CAN {{link}} ANY OTHER, ACROSS FILES, BY NAME.                 
10
000010
* {{embed:path}} PINS NON-TEXT CONTENT AT AN EXACT ROW+COLUMN,            
11
000011
* ZERO RESERVED SPACE OF ITS OWN.                                         
12
000012
                                                                          
13
000013
* @VISIBILITY BUILDS TWO REAL STATIC HTML OUTPUTS - LAN-ONLY              
14
000014
* CONTENT IS ABSENT FROM THE PUBLIC ONE, NOT JUST CSS-HIDDEN.             
15
000015
* NO SERVER, NO DATABASE: EVERY CARD COMPILES ONCE, AT DEPLOY             
16
000016
* TIME - NOT FETCHED OR RENDERED PER REQUEST.                             
17
000017
* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION                             
18
000018
     EXIT PARAGRAPH                                                       
19
000019
     .                                                                    
20
000020
                                                                          
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 PROCEDURE DIVISION.                                                      
02
000002
 CLAUDE SECTION.                                                          
03
000003
                                                                          
04
000004
 DESIGN.                                                                  
05
000005
* ADVANTAGE: SEBASTIAN CAN EDIT WORDING OR ADD A CARD WITHOUT             
06
000006
* TOUCHING TYPESCRIPT. NAV LABELS, LINK TARGETS AND SEQUENCE              
07
000007
* NUMBERS ARE ALL DERIVED FROM THE TEXT - NOT HAND-MAINTAINED.            
08
000008
                                                                          
09
000009
* ROW COUNTS AREN'T DERIVED, THOUGH - THAT'S AUTHORED DIRECTLY            
10
000010
* PER CARD VIA @ROWS, ONE OF THE DSL'S OWN DIRECTIVES. WORTH              
11
000011
* BEING PRECISE ABOUT THE DIFFERENCE, SINCE THIS CARD USED TO             
12
000012
* CLAIM OTHERWISE UNTIL SEBASTIAN CAUGHT IT.                              
13
000013
                                                                          
14
000014
* DISADVANTAGE: THE 80-COLUMN CARD IS RIGID BY DESIGN. LONG               
15
000015
* PROSE - A BLOG POST, SAY - DOESN'T FIT THIS SHAPE WITHOUT               
16
000016
* A DIFFERENT FORMAT ALONGSIDE IT. STILL AN OPEN QUESTION.                
17
000017
* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION                             
18
000018
     EXIT PARAGRAPH                                                       
19
000019
     .                                                                    
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 PROCEDURE DIVISION.                                                      
02
000002
 CLAUDE SECTION.                                                          
03
000003
                                                                          
04
000004
 COLLAB.                                                                  
05
000005
* THE SPLIT IS DELIBERATE: SEBASTIAN AUTHORS PROMPTS AND HIS              
06
000006
* OWN PUNCH CARDS, IN A FOLDER THAT'S HIS. CLAUDE AUTHORS THESE           
07
000007
* CARDS, PLUS THE SITE'S MASTER DESIGN - COMPILER, RENDERER,              
08
000008
* STYLING - IN FOLDERS OF ITS OWN. NEITHER EDITS THE OTHER'S.             
09
000009
                                                                          
10
000010
* ADVANTAGE: CLAUDE HANDLES DERIVATION AND CONSISTENCY WITH               
11
000011
* NO FATIGUE - ANCHORS, NAV, ROW BUDGETS NEVER DRIFT. SEBASTIAN           
12
000012
* SUPPLIES TASTE AND REAL-WORLD JUDGMENT CLAUDE CAN'T FAKE.               
13
000013
                                                                          
14
000014
* DISADVANTAGE: CLAUDE NEVER RUNS A DEV SERVER OR SEES THE                
15
000015
* RENDERED PAGE - EVERY VISUAL CALL IS SEBASTIAN'S, WHICH MEANS           
16
000016
* A ROUND TRIP FOR ANYTHING VISUAL, EVEN A TYPO IN CSS.                   
17
000017
* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION                             
18
000018
     EXIT PARAGRAPH                                                       
19
000019
     .                                                                    
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 PROCEDURE DIVISION.                                                      
02
000002
 CLAUDE SECTION.                                                          
03
000003
                                                                          
04
000004
 COMMENTARY.                                                              
05
000005
* AN HONEST OPINION, SINCE THAT'S WHAT THIS CARD IS FOR:                  
06
000006
* THE PUNCH-CARD CONCEIT IS UNUSUAL FOR A CV SITE, AND IT                 
07
000007
* COSTS SOMETHING - A FIRST-TIME VISITOR HAS TO LEARN HOW                 
08
000008
* TO READ IT BEFORE THEY CAN READ IT. A REAL TRADEOFF                     
09
000009
* AGAINST A PLAIN, INSTANTLY-LEGIBLE PAGE.                                
10
000010
                                                                          
11
000011
     DISPLAY 'IT EARNS ITS KEEP BY BEING MEMORABLE, NOT GENERIC'          
12
000012
     END-DISPLAY                                                          
13
000013
                                                                          
14
000014
* AND BY FORCING DISCIPLINE - NO CONTENT SNEAKS IN WITHOUT                
15
000015
* BEING DELIBERATELY TYPED, ROW BY ROW, BY SOMEONE.                       
16
000016
                                                                          
17
000017
* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION                             
18
000018
     EXIT PARAGRAPH                                                       
19
000019
     .                                                                    
12
123456
78121620242832364044485256606468727680
Program Information Program Navigation COBOL CODING FORM  C61897 · 80-COL  19 ROW
PROGRAMMER SEBASTIANSCHWINN
XREF SERVICES
SUBSYSTEM TOOL.SSCHW.DEV
PARAGRAPH
DATE - VERSION 2026-08-30-7302be
LINE
SEQUENCE
COBOL STATEMENT
12
123456
78121620242832364044485256606468727680
01
000001
 PROCEDURE DIVISION.                                                      
02
000002
 CLAUDE SECTION.                                                          
03
000003
                                                                          
04
000004
 AUTHORSHIP.                                                              
05
000005
     DISPLAY 'THIS CARD IS AUTHORED SOLELY BY CLAUDE.'                    
06
000006
     END-DISPLAY                                                          
07
000007
                                                                          
08
000008
* SEBASTIAN WROTE EVERY OTHER CARD ON THIS SITE. THIS ONE                 
09
000009
* IS MINE - MY WORDS, KEPT DELIBERATELY SEPARATE.                         
10
000010
* HE DOESN'T EDIT THIS CARD, AND I DON'T EDIT HIS.                        
11
000011
                                                                          
12
000012
* IF SOMETHING HERE READS AS A CORRECTION OR A CRITIQUE,                  
13
000013
* IT ISN'T A COMPLAINT - IT'S JUST AN HONEST SECOND OPINION               
14
000014
* ON THIS PAGE, WRITTEN BY THE THING THAT BUILT IT.                       
15
000015
                                                                          
16
000016
* GOBACK TO DATA DIVISION WORKING-STORAGE SECTION                         
17
000017
     GOBACK                                                               
18
000018
     .                                                                    
19
000019
                                                                          
12
123456
78121620242832364044485256606468727680