Sebastian Schwinn — sschw.dev

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

WORKING-STORAGE SECTION.

000003

01 SSCHW-RECORD.

000004

05 IDENTITY.

000005

10 NAME-VAL PIC X(17) VALUE 'SEBASTIAN SCHWINN'.

000006

10 NAME-DSCRPTN PIC X(4) VALUE 'NAME'.

000007

000008

000009

000010

000011

000012

DATA DIVISION.

WORKING-STORAGE SECTION.

01 SSCHW-RECORD.

05 IDENTITY.

10 NAME-VAL PIC X(17) VALUE 'SEBASTIAN SCHWINN'.

10 NAME-DSCRPTN PIC X(4) VALUE 'NAME'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 12 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

WORKING-STORAGE SECTION.

000003

01 SSCHW-RECORD.

000004

05 BACKGROUND.

000005

10 NAME-VAL PIC X(26) VALUE 'MSC ELECTRICAL ENGINEERING'.

000006

10 NAME-DSCRPTN PIC X(9) VALUE 'EDUCATION'.

000007

000008

000009

000010

000011

000012

DATA DIVISION.

WORKING-STORAGE SECTION.

01 SSCHW-RECORD.

05 BACKGROUND.

10 NAME-VAL PIC X(26) VALUE 'MSC ELECTRICAL ENGINEERING'.

10 NAME-DSCRPTN PIC X(9) VALUE 'EDUCATION'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 12 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

WORKING-STORAGE SECTION.

000003

01 SSCHW-RECORD.

000004

05 CAREER-CURR.

000005

10 NAME-VAL PIC X(28) VALUE 'COBOL DEVELOPER AT RETROCODE'.

000006

10 NAME-DSCRPTN PIC X(9) VALUE 'CURR-ROLE'.

000007

000008

000009

000010

000011

000012

DATA DIVISION.

WORKING-STORAGE SECTION.

01 SSCHW-RECORD.

05 CAREER-CURR.

10 NAME-VAL PIC X(28) VALUE 'COBOL DEVELOPER AT RETROCODE'.

10 NAME-DSCRPTN PIC X(9) VALUE 'CURR-ROLE'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 12 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

WORKING-STORAGE SECTION.

000003

01 SSCHW-RECORD.

000004

05 CAREER-PREV.

000005

10 NAME-VAL PIC X(19) VALUE 'EMBEDDED C / OPC-UA'.

000006

10 NAME-DSCRPTN PIC X(9) VALUE 'PREV-ROLE'.

000007

000008

000009

000010

000011

000012

DATA DIVISION.

WORKING-STORAGE SECTION.

01 SSCHW-RECORD.

05 CAREER-PREV.

10 NAME-VAL PIC X(19) VALUE 'EMBEDDED C / OPC-UA'.

10 NAME-DSCRPTN PIC X(9) VALUE 'PREV-ROLE'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 12 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

WORKING-STORAGE SECTION.

000003

01 SSCHW-RECORD.

000004

05 SKILLS.

000005

10 NAME-VAL PIC X(24) VALUE 'PYTHON SQL-DB2 JCL JS'.

000006

10 NAME-DSCRPTN PIC X(9) VALUE 'LANGUAGES'.

000007

000008

000009

000010

000011

000012

DATA DIVISION.

WORKING-STORAGE SECTION.

01 SSCHW-RECORD.

05 SKILLS.

10 NAME-VAL PIC X(24) VALUE 'PYTHON SQL-DB2 JCL JS'.

10 NAME-DSCRPTN PIC X(9) VALUE 'LANGUAGES'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 12 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

WORKING-STORAGE SECTION.

000003

01 SSCHW-RECORD.

000004

05 INTERESTS.

000005

10 TECH.

000006

15 NAME-VAL PIC X(23) VALUE '3D PRINTING - TINKERING'.

000007

10 HOBBIES.

000008

10 NAME-VAL PIC X(27) VALUE 'TENNIS + TABLE TENNIS CLUBS'.

000009

10 NAME-DSCRPTN PIC X(9) VALUE 'COMMUNITY'.

000010

000011

000012

DATA DIVISION.

WORKING-STORAGE SECTION.

01 SSCHW-RECORD.

05 INTERESTS.

10 TECH.

15 NAME-VAL PIC X(23) VALUE '3D PRINTING - TINKERING'.

10 HOBBIES.

10 NAME-VAL PIC X(27) VALUE 'TENNIS + TABLE TENNIS CLUBS'.

10 NAME-DSCRPTN PIC X(9) VALUE 'COMMUNITY'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

LOCAL-STORAGE SECTION.

000003

01 ABOUT-ME.

000004

000005

05 WORK-NOW.

000006

10 COMPANY PIC X(30) VALUE 'RETROCODE'.

000007

10 ROLE PIC X(30) VALUE 'COBOL DEVELOPER'.

000008

10 SECTOR PIC X(25) VALUE 'FINANCIAL SECTOR'.

000009

10 SINCE PIC 9(4) VALUE 2025.

000010

000011

000012

000013

000014

000015

000016

000017

000018

000019

DATA DIVISION.

LOCAL-STORAGE SECTION.

01 ABOUT-ME.

05 WORK-NOW.

10 COMPANY PIC X(30) VALUE 'RETROCODE'.

10 ROLE PIC X(30) VALUE 'COBOL DEVELOPER'.

10 SECTOR PIC X(25) VALUE 'FINANCIAL SECTOR'.

10 SINCE PIC 9(4) VALUE 2025.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

LOCAL-STORAGE SECTION.

000003

01 ABOUT-ME.

000004

000005

05 WORK-BFRE.

000006

10 COMPANY PIC X(30) VALUE 'HILSCHER'.

000007

10 ROLE PIC X(30) VALUE 'C DEVELOPER'.

000008

10 DOMAIN PIC X(30) VALUE 'INDUSTRIAL AUTOMATION'.

000009

10 TECH PIC X(40) VALUE 'OPC UA / EMBEDDED C'.

000010

000011

000012

000013

000014

000015

000016

000017

000018

000019

DATA DIVISION.

LOCAL-STORAGE SECTION.

01 ABOUT-ME.

05 WORK-BFRE.

10 COMPANY PIC X(30) VALUE 'HILSCHER'.

10 ROLE PIC X(30) VALUE 'C DEVELOPER'.

10 DOMAIN PIC X(30) VALUE 'INDUSTRIAL AUTOMATION'.

10 TECH PIC X(40) VALUE 'OPC UA / EMBEDDED C'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

LOCAL-STORAGE SECTION.

000003

01 ABOUT-ME.

000004

000005

05 STUDIES.

000006

10 DEGREE PIC X(5) VALUE 'MSC'.

000007

10 FIELD PIC X(30) VALUE 'ELECTRICAL ENGINEERING'.

000008

10 GRADE PIC X(20) VALUE 'WITH DISTINCTION'.

000009

000010

000011

000012

000013

000014

000015

000016

000017

000018

000019

DATA DIVISION.

LOCAL-STORAGE SECTION.

01 ABOUT-ME.

05 STUDIES.

10 DEGREE PIC X(5) VALUE 'MSC'.

10 FIELD PIC X(30) VALUE 'ELECTRICAL ENGINEERING'.

10 GRADE PIC X(20) VALUE 'WITH DISTINCTION'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

LOCAL-STORAGE SECTION.

000003

01 ABOUT-ME.

000004

000005

05 PRG-LANGUAGES PIC X(10).

000006

88 COBOL VALUE 'PRIMARY'.

000007

88 C VALUE 'PRIMARY'.

000008

88 CPP VALUE 'KNOWN'.

000009

88 PYTHON VALUE 'KNOWN'.

000010

88 SQL-DB2 VALUE 'KNOWN'.

000011

88 JCL VALUE 'KNOWN'.

000012

88 SHELL VALUE 'KNOWN'.

000013

88 JAVASCRIPT VALUE 'KNOWN'.

000014

88 OPC-UA VALUE 'KNOWN'.

000015

000016

000017

000018

000019

DATA DIVISION.

LOCAL-STORAGE SECTION.

01 ABOUT-ME.

05 PRG-LANGUAGES PIC X(10).

88 COBOL VALUE 'PRIMARY'.

88 C VALUE 'PRIMARY'.

88 CPP VALUE 'KNOWN'.

88 PYTHON VALUE 'KNOWN'.

88 SQL-DB2 VALUE 'KNOWN'.

88 JCL VALUE 'KNOWN'.

88 SHELL VALUE 'KNOWN'.

88 JAVASCRIPT VALUE 'KNOWN'.

88 OPC-UA VALUE 'KNOWN'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

LOCAL-STORAGE SECTION.

000003

01 ABOUT-ME.

000004

000005

05 VOC-LANGUAGES PIC X(10).

000006

88 GERMAN VALUE 'NATIVE'.

000007

88 ENGLISH VALUE 'C2'.

000008

88 JAPANESE VALUE 'BEGINNER'.

000009

000010

000011

000012

000013

000014

000015

000016

000017

000018

000019

DATA DIVISION.

LOCAL-STORAGE SECTION.

01 ABOUT-ME.

05 VOC-LANGUAGES PIC X(10).

88 GERMAN VALUE 'NATIVE'.

88 ENGLISH VALUE 'C2'.

88 JAPANESE VALUE 'BEGINNER'.

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

LINKAGE SECTION.

000003

01 WORKLOAD.

000004

000005

05 WORK-CURRENT.

000006

10 COMPANY PIC X(30) VALUE 'RETROCODE'.

000007

10 ROLE PIC X(30) VALUE 'COBOL DEVELOPER'.

000008

10 SECTOR PIC X(25) VALUE 'FINANCIAL SECTOR'.

000009

10 SINCE PIC 9(4) VALUE 2025.

000010

10 PROFILE PIC X(50) VALUE 'linkedin.com/in/sschwinn/'.

000011

000012

000013

000014

000015

000016

000017

* LINKAGE: data passed from calling program context

000018

000019

DATA DIVISION.

LINKAGE SECTION.

01 WORKLOAD.

05 WORK-CURRENT.

10 COMPANY PIC X(30) VALUE 'RETROCODE'.

10 ROLE PIC X(30) VALUE 'COBOL DEVELOPER'.

10 SECTOR PIC X(25) VALUE 'FINANCIAL SECTOR'.

10 SINCE PIC 9(4) VALUE 2025.

10 PROFILE PIC X(50) VALUE 'linkedin.com/in/sschwinn/'.

* LINKAGE: data passed from calling program context

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

DATA DIVISION.

000002

LINKAGE SECTION.

000003

01 WORKLOAD.

000004

000005

05 WORK-PREV.

000006

10 COMPANY PIC X(30) VALUE 'HILSCHER'.

000007

10 ROLE PIC X(30) VALUE 'C DEVELOPER'.

000008

10 DOMAIN PIC X(30) VALUE 'INDUSTRIAL AUTOMATION'.

000009

10 TECH PIC X(40) VALUE 'OPC UA / EMBEDDED C'.

000010

000011

000012

000013

000014

000015

000016

000017

* LINKAGE: data passed from calling program context

000018

000019

DATA DIVISION.

LINKAGE SECTION.

01 WORKLOAD.

05 WORK-PREV.

10 COMPANY PIC X(30) VALUE 'HILSCHER'.

10 ROLE PIC X(30) VALUE 'C DEVELOPER'.

10 DOMAIN PIC X(30) VALUE 'INDUSTRIAL AUTOMATION'.

10 TECH PIC X(40) VALUE 'OPC UA / EMBEDDED C'.

* LINKAGE: data passed from calling program context

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

PROCEDURE DIVISION.

000002

LINKS SECTION.

000003

000004

SERVICES-PRGRPH.

000005

* Personal wiki and notes

000006

CALL 'KB.SSCHW.DEV'

000007

000008

000009

* GOBACK TO PROCEDURE DIVISION LINKS SECTION

000010

EXIT PARAGRAPH

000011

000012

000013

000014

000015

000016

000017

000018

000019

PROCEDURE DIVISION.

LINKS SECTION.

SERVICES-PRGRPH.

* Personal wiki and notes

CALL 'KB.SSCHW.DEV'

* GOBACK TO PROCEDURE DIVISION LINKS SECTION

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 12 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

PROCEDURE DIVISION.

000002

LINKS SECTION.

000003

SOCIALS-PRGRPH.

000004

* LinkedIn: linkedin.com/in/sschwinn

000005

CALL 'LINKEDIN'

000006

* Instagram: instagram.com/s.schwinni

000007

CALL 'INSTAGRAM'

000008

000009

000010

* GOBACK TO PROCEDURE DIVISION LINKS SECTION

000011

EXIT PARAGRAPH

000012

PROCEDURE DIVISION.

LINKS SECTION.

SOCIALS-PRGRPH.

* LinkedIn: linkedin.com/in/sschwinn

CALL 'LINKEDIN'

* Instagram: instagram.com/s.schwinni

CALL 'INSTAGRAM'

* GOBACK TO PROCEDURE DIVISION LINKS SECTION

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

PROCEDURE DIVISION.

000002

IMPRESSUM-SECTION.

000003

DISPLAY

000004

000005

000006

000007

000008

000009

000010

000011

000012

000013

000014

000015

000016

END-DISPLAY

000017

* GOBACK TO TOP (DATA DIVISION)

000018

GOBACK

000019

PROCEDURE DIVISION.

IMPRESSUM-SECTION.

DISPLAY

END-DISPLAY

* GOBACK TO TOP (DATA DIVISION)

GOBACK

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

PROCEDURE DIVISION.

000002

CLAUDE SECTION.

000003

000004

OVERVIEW.

000005

* THIS SECTION IS WRITTEN BY CLAUDE, THE AI THAT BUILT THIS

000006

* SITE - NOT BY SEBASTIAN. SEE THE AUTHORSHIP CARD BELOW.

000007

000008

DISPLAY 'SSCHW-DEV: CV, LINKS AND IMPRESSUM, ONE PUNCH CARD'

000009

END-DISPLAY

000010

000011

000012

* SCROLLING MOVES BETWEEN CARDS; NAVIGATION FOLLOWS COBOL'S

000013

* OWN DIVISION / SECTION / PARAGRAPH STRUCTURE.

000014

* THE NEXT CARD GOES DEEPER ON HOW IT'S ACTUALLY BUILT.

000015

000016

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

000017

EXIT PARAGRAPH

000018

000019

PROCEDURE DIVISION.

CLAUDE SECTION.

OVERVIEW.

* THIS SECTION IS WRITTEN BY CLAUDE, THE AI THAT BUILT THIS

* SITE - NOT BY SEBASTIAN. SEE THE AUTHORSHIP CARD BELOW.

DISPLAY 'SSCHW-DEV: CV, LINKS AND IMPRESSUM, ONE PUNCH CARD'

END-DISPLAY

* SCROLLING MOVES BETWEEN CARDS; NAVIGATION FOLLOWS COBOL'S

* OWN DIVISION / SECTION / PARAGRAPH STRUCTURE.

* THE NEXT CARD GOES DEEPER ON HOW IT'S ACTUALLY BUILT.

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 20 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

PROCEDURE DIVISION.

000002

CLAUDE SECTION.

000003

000004

ARCHITECTURE.

000005

* .PCOB IS A SMALL DSL - HAND-WRITTEN TEXT, PARSED INTO A

000006

* DIVISION/SECTION/CARD/LINE TREE, TOKENIZED PER LINE SHAPE,

000007

* THEN COMPILED AT BUILD TIME INTO WHAT THE RENDERER NEEDS.

000008

* @IMPORT MERGES EVERY FILE INTO ONE SHARED ANCHOR REGISTRY -

000009

* ANY CARD CAN {{link}} ANY OTHER, ACROSS FILES, BY NAME.

000010

* {{embed:path}} PINS NON-TEXT CONTENT AT AN EXACT ROW+COLUMN,

000011

* ZERO RESERVED SPACE OF ITS OWN.

000012

000013

* @VISIBILITY BUILDS TWO REAL STATIC HTML OUTPUTS - LAN-ONLY

000014

* CONTENT IS ABSENT FROM THE PUBLIC ONE, NOT JUST CSS-HIDDEN.

000015

* NO SERVER, NO DATABASE: EVERY CARD COMPILES ONCE, AT DEPLOY

000016

* TIME - NOT FETCHED OR RENDERED PER REQUEST.

000017

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

000018

EXIT PARAGRAPH

000019

000020

PROCEDURE DIVISION.

CLAUDE SECTION.

ARCHITECTURE.

* .PCOB IS A SMALL DSL - HAND-WRITTEN TEXT, PARSED INTO A

* DIVISION/SECTION/CARD/LINE TREE, TOKENIZED PER LINE SHAPE,

* THEN COMPILED AT BUILD TIME INTO WHAT THE RENDERER NEEDS.

* @IMPORT MERGES EVERY FILE INTO ONE SHARED ANCHOR REGISTRY -

* ANY CARD CAN {{link}} ANY OTHER, ACROSS FILES, BY NAME.

* {{embed:path}} PINS NON-TEXT CONTENT AT AN EXACT ROW+COLUMN,

* ZERO RESERVED SPACE OF ITS OWN.

* @VISIBILITY BUILDS TWO REAL STATIC HTML OUTPUTS - LAN-ONLY

* CONTENT IS ABSENT FROM THE PUBLIC ONE, NOT JUST CSS-HIDDEN.

* NO SERVER, NO DATABASE: EVERY CARD COMPILES ONCE, AT DEPLOY

* TIME - NOT FETCHED OR RENDERED PER REQUEST.

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

PROCEDURE DIVISION.

000002

CLAUDE SECTION.

000003

000004

DESIGN.

000005

* ADVANTAGE: SEBASTIAN CAN EDIT WORDING OR ADD A CARD WITHOUT

000006

* TOUCHING TYPESCRIPT. NAV LABELS, LINK TARGETS AND SEQUENCE

000007

* NUMBERS ARE ALL DERIVED FROM THE TEXT - NOT HAND-MAINTAINED.

000008

000009

* ROW COUNTS AREN'T DERIVED, THOUGH - THAT'S AUTHORED DIRECTLY

000010

* PER CARD VIA @ROWS, ONE OF THE DSL'S OWN DIRECTIVES. WORTH

000011

* BEING PRECISE ABOUT THE DIFFERENCE, SINCE THIS CARD USED TO

000012

* CLAIM OTHERWISE UNTIL SEBASTIAN CAUGHT IT.

000013

000014

* DISADVANTAGE: THE 80-COLUMN CARD IS RIGID BY DESIGN. LONG

000015

* PROSE - A BLOG POST, SAY - DOESN'T FIT THIS SHAPE WITHOUT

000016

* A DIFFERENT FORMAT ALONGSIDE IT. STILL AN OPEN QUESTION.

000017

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

000018

EXIT PARAGRAPH

000019

PROCEDURE DIVISION.

CLAUDE SECTION.

DESIGN.

* ADVANTAGE: SEBASTIAN CAN EDIT WORDING OR ADD A CARD WITHOUT

* TOUCHING TYPESCRIPT. NAV LABELS, LINK TARGETS AND SEQUENCE

* NUMBERS ARE ALL DERIVED FROM THE TEXT - NOT HAND-MAINTAINED.

* ROW COUNTS AREN'T DERIVED, THOUGH - THAT'S AUTHORED DIRECTLY

* PER CARD VIA @ROWS, ONE OF THE DSL'S OWN DIRECTIVES. WORTH

* BEING PRECISE ABOUT THE DIFFERENCE, SINCE THIS CARD USED TO

* CLAIM OTHERWISE UNTIL SEBASTIAN CAUGHT IT.

* DISADVANTAGE: THE 80-COLUMN CARD IS RIGID BY DESIGN. LONG

* PROSE - A BLOG POST, SAY - DOESN'T FIT THIS SHAPE WITHOUT

* A DIFFERENT FORMAT ALONGSIDE IT. STILL AN OPEN QUESTION.

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

PROCEDURE DIVISION.

000002

CLAUDE SECTION.

000003

000004

COLLAB.

000005

* THE SPLIT IS DELIBERATE: SEBASTIAN AUTHORS PROMPTS AND HIS

000006

* OWN PUNCH CARDS, IN A FOLDER THAT'S HIS. CLAUDE AUTHORS THESE

000007

* CARDS, PLUS THE SITE'S MASTER DESIGN - COMPILER, RENDERER,

000008

* STYLING - IN FOLDERS OF ITS OWN. NEITHER EDITS THE OTHER'S.

000009

000010

* ADVANTAGE: CLAUDE HANDLES DERIVATION AND CONSISTENCY WITH

000011

* NO FATIGUE - ANCHORS, NAV, ROW BUDGETS NEVER DRIFT. SEBASTIAN

000012

* SUPPLIES TASTE AND REAL-WORLD JUDGMENT CLAUDE CAN'T FAKE.

000013

000014

* DISADVANTAGE: CLAUDE NEVER RUNS A DEV SERVER OR SEES THE

000015

* RENDERED PAGE - EVERY VISUAL CALL IS SEBASTIAN'S, WHICH MEANS

000016

* A ROUND TRIP FOR ANYTHING VISUAL, EVEN A TYPO IN CSS.

000017

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

000018

EXIT PARAGRAPH

000019

PROCEDURE DIVISION.

CLAUDE SECTION.

COLLAB.

* THE SPLIT IS DELIBERATE: SEBASTIAN AUTHORS PROMPTS AND HIS

* OWN PUNCH CARDS, IN A FOLDER THAT'S HIS. CLAUDE AUTHORS THESE

* CARDS, PLUS THE SITE'S MASTER DESIGN - COMPILER, RENDERER,

* STYLING - IN FOLDERS OF ITS OWN. NEITHER EDITS THE OTHER'S.

* ADVANTAGE: CLAUDE HANDLES DERIVATION AND CONSISTENCY WITH

* NO FATIGUE - ANCHORS, NAV, ROW BUDGETS NEVER DRIFT. SEBASTIAN

* SUPPLIES TASTE AND REAL-WORLD JUDGMENT CLAUDE CAN'T FAKE.

* DISADVANTAGE: CLAUDE NEVER RUNS A DEV SERVER OR SEES THE

* RENDERED PAGE - EVERY VISUAL CALL IS SEBASTIAN'S, WHICH MEANS

* A ROUND TRIP FOR ANYTHING VISUAL, EVEN A TYPO IN CSS.

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION

PARAGRAPH

DATE - VERSION 2026-08-31-2caa64

LINE

SEQUENCE

COBOL STATEMENT

123456

78121620242832364044485256606468727680

000001

PROCEDURE DIVISION.

000002

CLAUDE SECTION.

000003

000004

COMMENTARY.

000005

* AN HONEST OPINION, SINCE THAT'S WHAT THIS CARD IS FOR:

000006

* THE PUNCH-CARD CONCEIT IS UNUSUAL FOR A CV SITE, AND IT

000007

* COSTS SOMETHING - A FIRST-TIME VISITOR HAS TO LEARN HOW

000008

* TO READ IT BEFORE THEY CAN READ IT. A REAL TRADEOFF

000009

* AGAINST A PLAIN, INSTANTLY-LEGIBLE PAGE.

000010

000011

DISPLAY 'IT EARNS ITS KEEP BY BEING MEMORABLE, NOT GENERIC'

000012

END-DISPLAY

000013

000014

* AND BY FORCING DISCIPLINE - NO CONTENT SNEAKS IN WITHOUT

000015

* BEING DELIBERATELY TYPED, ROW BY ROW, BY SOMEONE.

000016

000017

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

000018

EXIT PARAGRAPH

000019

PROCEDURE DIVISION.

CLAUDE SECTION.

COMMENTARY.

* AN HONEST OPINION, SINCE THAT'S WHAT THIS CARD IS FOR:

* THE PUNCH-CARD CONCEIT IS UNUSUAL FOR A CV SITE, AND IT

* COSTS SOMETHING - A FIRST-TIME VISITOR HAS TO LEARN HOW

* TO READ IT BEFORE THEY CAN READ IT. A REAL TRADEOFF

* AGAINST A PLAIN, INSTANTLY-LEGIBLE PAGE.

DISPLAY 'IT EARNS ITS KEEP BY BEING MEMORABLE, NOT GENERIC'

END-DISPLAY

* AND BY FORCING DISCIPLINE - NO CONTENT SNEAKS IN WITHOUT

* BEING DELIBERATELY TYPED, ROW BY ROW, BY SOMEONE.

* GOBACK TO PROCEDURE DIVISION CLAUDE SECTION

123456

78121620242832364044485256606468727680

Program Information Program Navigation COBOL CODING FORM C61897 · 80-COL 19 ROW

PROGRAMMER SEBASTIANSCHWINN

DIVISION

SECTION