Voorbeelden van assembler-code.

Deze pagina bevat de volgende voorbeeld programma's:

Klassieke assembler programma's:
- Static glue module
- Dynamic VSAM I/O module
Assembler programma's die gebruik maken van Bixoft's eXtended Assembler macro's:

Opmerking 1:
Alle voorbeelden op deze pagina zijn slechts voorbeelden, en onder voorbehoud van fouten en/of omissies. U mag (delen van) deze code gebruiken maar u doet dat volledig voor eigen risico. Het blijft natuurlijk altijd zaak uw programma's grondig te testen.

Opmerking 2:
Alle voorbeelden op deze pagina zijn volledig in het engels. Dit is gedaan om de volgende redenen:

De beschikbare ruimte op een source-regel is beperkt. Engelse teksten zijn meestal korter dan het nederlands-talige equivalent, en genieten daarom de voorkeur.
Het jargon is nu eenmaal in het engels, door termen te vertalen wordt er onduidelijkheid geschapen in plaats van weggenomen. Mochten bepaalde termen u toch niet duidelijk zijn, schroom dan niet ons te e-mailen met uw vragen.
Ten slotte is het engels in de praktijk de meest gebruikte taal voor commentaar in assembler-sources.

Overigens wijzen wij er op, dat u voor alle commentaar in uw sources het best de taal kunt kiezen die in uw bedrijf het meest gangbaar is. Dit geldt natuurlijk ook voor alle overige vormen van documentatie.

Static glue module.

Ten einde een miniatuur DataBase Manager (DBMS) te bouwen zijn bij het ontwerp de volgende uitgangspunten gehanteerd:

Logica opsplitsen in een statisch module met minimale functionaliteit, en een dynamisch deel dat de vertaling tussen logische en fysieke record-indelingen voor zijn rekening neemt. Voor elke logische record-indeling kunnen meerdere versies ondersteund worden door het dynamische module.
De te hanteren logische record-indeling wordt bepaald door het aangeroepen entry-point - er is 1 entry-point in het statisch module voor elke logische record-indeling (view in SQL terminologie).
Het statische deel wordt onderdeel van elk aanroepend load module, en bepaalt het versienummer van elk logisch record. Wanneer de applicatie een nieuwere versie van een logische record indeling wil gaan gebruiken, dient dus een nieuwere versie van het statische module gelinkt te worden.
Omgekeerdis het zo, dat wanneer de fysieke structuur van de database (de onderliggende fysieke bestanden) verandert, de applicaties niet aangepast hoeven te worden. Ze kunnen met de bestaande versie van het statische module blijven draaien, en krijgen van het dynamische module de logische records met het bijbehorende versienummer terug.
Bij aanroep van het statische module geeft de applicatie een enkele parameter door. Deze parameter heeft de volgende lay-out:
- CL2 functiecode
- CL1 returncode
- CL15 sleutelwaarde voor random benadering
- CLnnn inhoud van het logische record
Het statische module voegt een tweede parameter toe. Deze bevat de volgende velden:
- AL4 pointer naar werkgeheugen van dynamisch module
- CL2 versienummer van logisch record
- CL8 logical record selectors
De volgende codes zijn gedefinieerd voor het functiecode-veld:
- RS - Read Sequential
- RR - Read Random (by key)
- WS - reWrite Sequential
- WR - reWrite Random (by key)
- SK - Skip to specified key
- SN - Skip to specified key, then read Next record
- IR - Insert Random (by key)
- DR - Delete Random (by key)
- SI - open for Sequential Input
- RI - open for Random Input
- SU - open for Sequential Update
- RU - open for Random Update
- WN - reWrite current record, then read Next
- DN - Delete current record, then read Next
- SD - creëer een Snap-Dump
De volgende codes zijn gedefinieerd voor het returncode-veld:
- 0 - alles ok
- 1 - record niet gevonden (random verwerking) of end-of-file (sequentiële verwerking)
- 2 - waarschuwing, probleem opgelost, zie joblog voor details
- 3 - programmeerfout in applicatie, zie joblog voor details
- 4 - fout in de verwerking, zie joblog voor opgetreden fout.
  Verwerking kan waarschijnlijk niet verder gaan.
- 5 - fatale fout in de verwerking, zie joblog voor opgetreden fout.
  Verdere verwerking is niet mogelijk.

Bekijk de source code van programma BXAIO.

Dynamic VSAM I/O module.

Voor een korte beschrijving van het ontwerp zie a.u.b. het hierboven beschreven static glue module.

Bekijk de source code van programma BXAIO00.

Dummy program in amode 24.

Dit programma geeft een bericht af om te tonen dat het correct is aangeroepen. Het programaa draait in amode 24, en heeft verder geen nuttige functie. Het programma is gemaakt om de GLUE macro te testen en het kan gebruikt worden als voorbeeld-programma.

Bekijk de source code van programma BXALOWPG.

Overzicht van control blocks.

Dit programma heeft geen run-time functie. Het wordt gebruikt om overzichten aan te maken van velden in control blocks, en om te controleren of er geen conflicten ontstaan in de naamgeving van velden.

De te genereren control blocks kunnen geselecteerd worden door de waarde van de assembly-variabele &SELECT te veranderen.

Bekijk de source code van programma BXAMAPS.

Test de waarde van een JCL-variabele.

Dit programma controleert de waarde van een JCL-variabele.

De uit te voeren test wordt opgegeven in het PARM-veld van het EXEC-statement.
De syntax is als volgt:

operand 1
operator (EQ of NE)
operand 2

Het programma geeft een return code van 0 (test voldoet) of 4 (test voldoet niet). Andere steps in de zelfde job kunnen uitgevoerd of overgeslagen worden aan de hand van deze return codes.

Het volgende voorbeeld toont hoe het programma BXATEST gebruikt kan worden in een JCL proc:

//BXAASM   PROC MEMB=,PROJ=,LVL=
//*
//TEST     EXEC PGM=BXATEST,PARM='&LVL EQ T'
//PROD     EXEC PGM=BXATEST,PARM='&LVL EQ P'
//*
//* Aanroep assembler, met standaard parms voor TEST
//*
//         IF   (TEST.RC = 0) THEN
//ASMT     EXEC PGM=ASMA90,PARM=(OBJECT,NODECK,TERM,
//             'SYSPARM(SRLIST,DBG,OPT)')
//SYSLIB   DD   DSN=SYS1.MACLIB,DISP=SHR
//         DD   DSN=SYS1.MODGEN,DISP=SHR
//         DD   DSN=BIXOFT.ASMPLUS&LVL..MACLIB,DISP=SHR
//         DD   DSN=BIXOFT.ASMPLUSP.MACLIB,DISP=SHR
//         DD   DSN=BIXOFT.&PROJ.&LVL..MACLIB,DISP=SHR
//         DD   DSN=BIXOFT.&PROJ.P.MACLIB,DISP=SHR
//...      Overige DD-statements
//         ENDIF
//*
//* Aanroep assembler, met standaard parms voor PROD
//*
//         IF   (PROD.RC = 0) THEN
//ASMP     EXEC PGM=ASMA90,PARM=(OBJECT,NODECK,TERM,
//             'SYSPARM(SRLIST,NODBG,OPT)')
//SYSLIB   DD   DSN=SYS1.MACLIB,DISP=SHR
//         DD   DSN=SYS1.MODGEN,DISP=SHR
//         DD   DSN=BIXOFT.ASMPLUS&LVL..MACLIB,DISP=SHR
//         DD   DSN=BIXOFT.&PROJ.&LVL..MACLIB,DISP=SHR
//...      Overige DD-statements
//         ENDIF
//*
//         PEND

Bekijk de source code van programma BXATEST.

Kopieer een dataset of een member.

Dit programma kopieert een member van een PDS concatenatie of een concatenatie van sequentiële datasets.

Input:
- JCL-parm met 'MEMBER=memname' of 'DATSET=PS'
- INPUT dd-statement met de input dataset(s)
Output:
- OUTPUT dd-statement met de aan te maken dataset

Voor MEMBER=memname wordt de INPUT concatenatie van PDS'en afgezocht naar het opgegeven member, welke vervolgens wordt gekopieerd naar OUTPUT.
Voor DATSET=PS wordt de volledige concatenatie van sequentiële datasets gekopieerd van INPUT naar OUTPUT.

IEBCOPY doet meer, maar gebruikt control cards als input; deze kunnen niet gesubstitueerd worden vanuit JCL variabelen.
IEHLIST kopieert eveneens datasets, maar het drukt ook alle records af, waardoor de spool snel volloopt.

Het volgende voorbeeld toont hoe het programma BXACOPY gebruikt kan worden in een JCL proc:

//BXAASM   PROC MEMB=,PROJ=,LVL=
//*
//* Copy source member to be used
//*
//COPY     EXEC PGM=BXACOPY,PARM='MEMBER=&MEMB'
//INPUT    DD   DSN=BIXOFT.&PROJ.&LVL..ASM,DISP=SHR
//         DD   DSN=BIXOFT.&PROJ.P.ASM,DISP=SHR
//OUTPUT   DD   SPACE=(TRK,(10,10,1),RLSE),DISP=(NEW,PASS,DELETE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),
//             DSN=&&ASM(&MEMB)
//*
//...      andere steps
//         PEND

Bekijk de source code van programma BXACOPY.

Een bibliotheek ontladen.

Dit programma ontlaadt alle members van een PDS in een enkele IEBUPDTE-job waarmee de bibliotheek elders weer geladen kan worden.
Het programma accepteert een parameter, deze specificeert de step-name voor de te genereren IEBUPDTE-job.

Het voordeel van het IEBUPDTE-formaat is dat de broncode ook onder DOS, Windows, en Unix zichtbaar gemaakt en gewijzigd kan worden.

Onderstaand voorbeeld toont hoe BXAUNLD kan worden aangeroepen.

//BXAUNLD  EXEC PGM=BXAUNLD,PARM='GOODIES'
//SYSUT1   DD   DSN=BIXOFT.GOODIES.ASM,DISP=OLD
//SYSUT2   DD   DSN=BIXOFT.GOODIES.UNLOAD,DISP=(NEW,CATLG,CATLG),
//             SPACE=(TRK,(10,10),RLSE),UNIT=3390,VOL=SER=TEMP00,
//             DCB=(LRECL=80,BLKSIZE=27920,RECFM=FB)

Bekijk de source code van programma BXAUNLD.

Opmerkingen? Vragen? Meer informatie? Klik het onderwerp van uw keuze aan, of e-mail ons met uw vragen.

Klassieke Assembler voorbeelden:

Voorbeeld Static glue module.
Voorbeeld Dynamic VSAM I/O module.

Bixoft's eXtended Assembly voorbeelden:

Voorbeeld Dummy programma.
Voorbeeld Overzicht van control block velden .
Voorbeeld Controleer een JCL variabele.
Voorbeeld Kopieer een dataset of member.
Voorbeeld Converteer een bibliotheek.

Beschikbare onderwerpen
Symposium: Verlenging levensduur van legacy applicaties
Bixoft Homepage	Wat is er veranderd?
Introductie / Sitemap	Waarom assembler
Cursus	Voorbeeld-fragmenten
Begeleiding	Voorbeeld-programma's
Consultancy	Macro bibliotheek
Onderhoud	Public License Voorstel
Ontwerp	Netwerk
3GL-migraties	HLASM Experts
Pre-compilers	Books & sites
3GL-problemen	Recensies
	Profile A.F. Kornelis

Deze site is aangesloten bij WebRing. Bekijkt u gerust de lijst van mainframe-gerelateerde sites.		Dino's zijn niet dood. Ze zijn gezond en wel en leven in computer-centra overal om ons heen. Zij spreken in tongen en doen wonderbare magie met computers. Pas op voor de dino! En voor het geval u zit te wachten op het definitieve einde van deze dino's: onthoud dat dino's de wereld 155 miljoen jaren hebben geregeerd!
Dino's en andere anachronismen [ Aanmelden \| Ring Overzicht \| Willekeurig \| << Vorige \| Volgende >> ]