|
| |||||||||
|
10.1;20 11.1;20
A1 Concatinated Segment Concatinated Segment
DPCK
DP LC (destination (intersect.Data) Parent) Virtual Logical Child
Real LC Virtual LC Siehe Zettel für weitere Übungen 4. DL1-Befehle (HLPI) 4.1. Befehle im Überblick
|
|
| Programmieren: CICS Customer Information Cont[...].doc |
|
• This is a free of charge document sharing network
• First upload your own document, and you get a word document per email
• No registration necessary, gratis
SEGMENT (NAME) FROM (IO-AREA)
REPLACE
Voraussetzung: Parent Pointer ist gesetzt.
REPLACE SEGMENT (SKILL) FROM (IO-AREA)
DELETE
Voraussetzung Parent Pointer ist gesetzt
DELETE SEGMENT (SKILL) FROM (IO-AREA)
LOAD
CHECKPOINT Alle Änderungen können ab hier wieder rückgängig gemacht werden
SCHEDULE
SCHEDULE PSB(PSB-NAME)
Cics Progr PSB
C
D E D E II CMS 1. Überblick
Dev. CMS CICS CICS
Batch CICS
CP VSE[MVS]
Console VM Virtual Machine CP Control Programm CMS Time Sharing System VSE Virtual Storage
Extendet Batch CICS Transaktions System An/Abmelden Dos Booten /ETC/hosts tcp starten tn vm 4a## 4adt/4eob AINSRT2
Message If
File = OK No à not IF Map = Ok Prepare
Mes s Saved „Not
saved(File Err)“ Prepare
Mess Prepare Mess „emp
saved“ „saved but“ Test-Edit-Map
Receive Edit-Map Map = not OK Map
= OK 01 Map Flag 88 MapOK 88 MapNOTok 88 No EmplNo ASHOW-1 MAIN If
MAP = OK PERFORM Read-Empl % Perform
Prepare-Error-Message Perform Show-MAP
A
A
B C
A
B C
VM
Perform Test-Edit-Map
If NO Employee-No
Y N
Prepare Perform Insert-Emp
„No Emp. Y N
Y N
Perform SHOW-EDIT-MAP with Message
Return to CNTRL
Save Map Contents to CA
IF one of the
emp-fields = Low Value
Y N
Perform TESTMAP
Y N
Test-MAP
IF
PROC-NAME = LOW
Y N
Perform Analyse-Start-MAP Perform
Analyse-Edit-Map
|
| Programmieren: CICS Customer Information Cont[...].doc |
|
• This is a free of charge document sharing network
• First upload your own document, and you get a word document per email
• No registration necessary, gratis
Y N
Move ‚Show1‛ to Proc-Name Map not OK
Map = OK
Read-Employee
Read Employee WITH KEY Emp-Name
Evaluate Read
Normal Duplic NAME Other
FILE = OK File = Duplic Key File not OK
Prepare-Error-Msg
IF MAP
not OK
Y N
IF Proc-Name Evaluate
File Flag
Y N
No Name to No Name to OK DUP
Other
Startmap Editmap Found at least on not found
E-Name
E-Match
Pf? <ESC>
MA
<Enter>
ABROWSE
START
ESC
Match
PF5
PF8/PF7 Enter
Code No Empl Sal Manager
10
PF7 à Page Up
PF8 à Page Down
a) Map ..ABROWMS
BrLINE..,LENGTH=79
OCCURS=10
b) CNTRL-WRGKEY
c) ABROWSE1.. füllt Queue
d) ABROWSE2..Ausgeben
Browse1
INIT-THINGS
Browse à Process-Name
Init Queue-Name
Init BrowseNumber(Commarea) auf 0 setzen
Delete Queue
ANALYSE-START-MAP
Receive Match-Name
If ‚*‛ à alle empl-expected
SET FIRST EMPL
If Matchname=VALID à Read First Matching Empl
If MatchName not VALID or * à Read First empl + Message (not found)
READ RECORDS & SAVE INTO QUEUE
UNTIL Last Matching Emloyee or EOF
Move ReadRecord to BrLine-Template (Druckaufbereitetes Record)
WRITE Br-Templ INTO QUEUE
BrowseNumber++
ReadNext Empl.
Browse2
SET-QUEUE-NAME
CALCULATE BROWSE POS
IF Pf7......Minus10
IF Pf8......Plus 10
If Coming from Browse1..Pos=1
Check Valid Range
PERFORM 10*
READ FROM QUEUE INTO MAP.BrLINE( i )
|
| Programmieren: CICS Customer Information Cont[...].doc |
|
• This is a free of charge document sharing network
• First upload your own document, and you get a word document per email
• No registration necessary, gratis
SET CURSOR TO 1st POSITION
SEND MAP [ERASE]
IN Browse2 Code Eingeben;
beim Blättern bleibt dieser Code erhalten
D..Delete
Code wird erst bei Enter ausgeführt.
Achtung: Kann ein Datensatz nicht gelöscht werden, so wird keiner Gelöscht à Transaktion not completed
Nach Enter einzelne Records
mit Read Update lesen und vergleichen ob sich etwas verändert hat.
Delete nur mit NR die nirgends ein Manager sind. !
U..Update
Managernummer ändern; überprüfen ob Managernummer mit einer Mitarbeiternummer übereinstimmt.
Page 4 of 4
[1] [2] [3] [4]
Legal info - Copyright - Terms - Partner - Statistik - Contact
antiblock.org adblockdetector.com
|
Swap your documents
|