Memorex LOCK - VERSION 2-24 Dokumentacja Strona 340
- Strona / 489
- Spis treści
- BOOKMARKI
Oceniono. / 5. Na podstawie oceny klientów
Processing Requirements Executing in CICS
10-14 User Reference
Processing Requirements
Step Action
1 Move the event name to the EVENT–NAME field. See "Posted Events," for
details about event–name limitations.
2 Link to the subroutine.
3 Check the return code passed and process accordingly.
WORKING-STORAGE SECTION.
01 EVENT.
02 EVENT-NAME PIC X(08).
02 EVENT-RETURN-CODE PIC X(01).
88 SUCCESS VALUE 'Y'.
88 FAILURE VALUE 'N'.
02 EVENT-POWER-MESSAGE PIC X(60)
PROCEDURE DIVISION.
MOVE 'PAY' TO EVENT-NAME.
EXEC CICS
LINK PROGRAM ('TSIDCCHK')
COMMAREA (EVENT)
LENGTH (69)
END EXEC.
IF SUCCESS
GOTO PERFORM
ELSE
GOTO WAIT.
...
This example checks for a posted event with TSIDCCHK. If the event is posted, it performs
the dependent task. If the event is not posted, it goes to the WAIT routine.
Procedure
Example
- BIM-EPIC 1
- This documentation applies to 2
- Contents 3
- Contents v 5
- Contents vii 7
- Contents ix 9
- Trademark Information 10
- Preface xiii 13
- Related Publications 14
- Introduction 15
- BIM-EPIC Fundamentals 16
- Controlled Datasets 17
- Start Track 1 Datasets 18
- DSN Catalog Entries 20
- DSN Catalog Management 21
- DSN Catalog Maintenance 22
- 1-10 User Reference 24
- EDD Tape Information 26
- EDD Disk Information 28
- Version Information 30
- 1-18 User Reference 32
- Automatic Cataloging 33
- 1-20 User Reference 34
- Rules for Dataset Retention 36
- 1-24 User Reference 38
- Overriding Standard Retention 39
- Automatic Generation Purge 40
- The Recorder File 41
- LUB Allocation 42
- Managing Tape Devices 43
- 1-30 User Reference 44
- Managing Disk Devices 45
- 1-32 User Reference 46
- Creating Reports 47
- The BIM-EPIC Environment 48
- BIM-EPIC JCL 50
- 1-38 User Reference 52
- BIM-EPIC Job Control 53
- Tape Processing 54
- 1-44 User Reference 58
- BIM-EPIC Online Manager 59
- 2-2 User Reference 60
- Overview 61
- 2-4 User Reference 62
- 2-6 User Reference 64
- Using the Online Manager 65
- 2-8 User Reference 66
- 2-10 User Reference 68
- Maintaining User Profiles 70
- Customizing the EDD Display 71
- 2-14 User Reference 72
- Using Online Manager Help 74
- 2-20 User Reference 78
- Managing EDDs 79
- 2-22 User Reference 80
- Creating a Dataset Definition 81
- Using TSIDMNT 82
- Updating a Dataset Definition 83
- Locking a Dataset Definition 84
- 2-28 User Reference 86
- Deleting a Dataset Definition 87
- Managing Dataset Versions 88
- 2-32 User Reference 90
- Displaying Version Attributes 91
- Adding Version Information 92
- Locking a Version 93
- Releasing a Locked Version 94
- Unlocking a Version 95
- Closing a Version 96
- Managing Tapes 98
- 2-42 User Reference 100
- Purging a Tape Volume 102
- Recording Tape Cleaning 103
- Retention and Scratching 104
- 2-48 User Reference 106
- Cycling a Dataset Version 108
- Scratching a Dataset Version 110
- 3-2 User Reference 112
- Command Summary 113
- BIM-EPIC System Requirements 114
- CA-EPIC for CMS Requirements 115
- TSIDMNT Commands 116
- PASSWORD 117
- TSIDMNT Commands ADD 119
- ADD TSIDMNT Commands 120
- 3-10 User Reference 120
- CAPACITY 121
- TSIDMNT Commands CATALOG 123
- CATALOG TSIDMNT Commands 124
- 3-14 User Reference 124
- 3-16 User Reference 126
- TSIDMNT Commands CYCLE 131
- DELETE TSIDMNT Commands 132
- 3-22 User Reference 132
- DELETE ' 132
- TSIDMNT Commands DEQ 133
- DEQ (no parameters) 133
- TSIDMNT Commands DISPLAY 135
- DISPLAY TSIDMNT Commands 136
- 3-26 User Reference 136
- DISPLAY ALL,ACTIVE,JOB=AR8000 136
- DIS 'AP.BALANCE' 136
- TSIDMNT Commands ENQ 137
- ENQ (no parameters) 137
- MCATALOG 139
- OFFLINE (VSE Only) 141
- ONLINE (VSE Only) 142
- QUIESCE (VSE Only) 144
- RETAIN TSIDMNT Commands 148
- 3-38 User Reference 148
- SCRATCH TSIDMNT Commands 150
- 3-40 User Reference 150
- TRANSFER 151
- TSIDMNT Commands UPDATE 153
- UPDATE TSIDMNT Commands 154
- 3-44 User Reference 154
- Accessing the DSN Catalog 155
- Examples 158
- TSIDAC2 Calling Procedure 160
- ADDRESS EPIC 165
- TLBL Statements 168
- 5-4 User Reference 170
- TLBL Options 172
- TLBL Statements TLBL Options 173
- DLBL Statements 174
- DLBL Options 176
- DLBL Statements DLBL Options 177
- DLBL Options DLBL Statements 178
- 5-12 User Reference 178
- BIM-EPIC DD Statements 179
- Specifying the DD Statement 180
- DD Statement Syntax 181
- Special DD Names 183
- 6-6 User Reference 184
- * //SYSABEND DD SYSOUT=A 184
- * //SYSMDUMP DD SYSOUT=A 184
- 6-8 User Reference 186
- AMP Parameter 190
- DCB Parameter 191
- 6-14 User Reference 192
- DISP Parameter 193
- • DELETE 194
- 6-18 User Reference 196
- 6-20 User Reference 198
- DSN Parameter 200
- FREE Parameter 202
- LABEL Parameter 203
- OPTION Parameter 204
- SPACE Parameter 208
- 6-32 User Reference 210
- UNIT Parameter 211
- 6-34 User Reference 212
- VOLUME Parameter 213
- 6-42 User Reference 220
- Running Jobs With BIM-EPIC 221
- JCL or DSN Catalog? 223
- Input Dataset Selection 224
- Rules For Dataset Name 226
- Disk Processing 228
- Reusing the Same Space 230
- Processing Tape Datasets 231
- 7-12 User Reference 232
- Multi-Volume Processing 233
- Multi-Dataset Processing 234
- 7-16 User Reference 236
- Example 4 241
- 7-22 User Reference 242
- Types of Datasets 244
- Direct Access Datasets 245
- ISAM Datasets 246
- 7-28 User Reference 248
- Work Datasets 249
- 7-30 User Reference 250
- Common Work Datasets (CWDS) 251
- TYPEFLE=WORK DTFs 252
- Compiler Work Datasets 253
- Uncontrolled Datasets 254
- Physical IOCS Processing 255
- 7-36 User Reference 256
- Sorting with BIM-EPIC 257
- 7-38 User Reference 258
- Sort Specifics 259
- 7-40 User Reference 260
- SORTWK Datasets 261
- 7-42 User Reference 262
- IDCAMS BACKUP and RESTORE 263
- IDCAMS REPRO 264
- IDCAMS IMPORT/EXPORT 265
- LIBR BACKUP/RESTORE 266
- VSE/POWER ACCOUNT FILE 268
- Tape Spooling 269
- 7-50 User Reference 270
- SQL/VSE Tape Output Functions 271
- Requirements with BIM-EPIC 272
- Processing with COBOL II 273
- 7-54 User Reference 274
- Choosing the Device Type 276
- Concatenating Datasets 281
- 7-64 User Reference 284
- BIM-EPIC Utilities 285
- Pre-Open Processing (TSIDASS) 286
- Deleting Datasets (TSIDDEL) 291
- 8-10 User Reference 294
- [tapemark], data, tapemark 294
- 8-12 User Reference 296
- Printing Datasets (TSIDDMP) 300
- 8-18 User Reference 302
- JMCL Statements 308
- Using Comment Statements 310
- JMCL Parameters 311
- Conditions and IF 315
- 9-10 User Reference 316
- // EXEC PHASE1 IF=(CC LT 16) 316
- Setting Values 317
- Symbolic Replacements 318
- JMCL Example 320
- Assembler 324
- TSIDJC2 Return Codes 325
- Executing CP Commands 326
- Job Scheduling 327
- Event Posting 328
- Scheduling Functions 329
- TSIDCREL) 330
- TSIDCHK or TSIDCCHK 331
- Description 331
- 10-6 User Reference 332
- Executing in Batch Jobs 334
- Executing in CICS 337
- Return Codes 338
- Processing Requirements 340
- SET PART= 341
- Job Activity Reports 343
- Recorder History Dataset 344
- EXCLUDE Control Statement 346
- TSIDARP Control Statement 347
- 11-14 User Reference 356
- 11-16 User Reference 358
- Managing Tape Volumes 359
- 12-4 User Reference 362
- Attention Routine Commands 363
- FREE and STATUS Commands 364
- Mounting Tapes 365
- Input Mounting Tapes 366
- 12-8 User Reference 366
- Initializing Tapes (TSIDINIT) 367
- 12-10 User Reference 368
- 12-16 User Reference 374
- Tape Vaulting 375
- Additional Reports 376
- Moving Volumes (TSIDVLT) 378
- Manually Controlled Vaults 380
- 12-26 User Reference 384
- Disk Space Management 385
- Secondary Allocation 387
- Truncation 388
- 13-6 User Reference 390
- VTOC Utilities 391
- Online VTOC Displays (TVTO) 395
- 13-12 User Reference 396
- 13-14 User Reference 398
- Offload System 399
- Introduction Offload System 400
- 13-16 User Reference 400
- 13-20 User Reference 404
- // RESET SYSIPT 407
- 13-28 User Reference 412
- TSIDONL Control Statements 413
- 13-32 User Reference 416
- REPT [PCT=n] 419
- CONI n n n … n 419
- CONO NV=n 419
- 13-38 User Reference 422
- Customized Reports 424
- TOJA Report Examples 425
- A-4 User Reference 426
- TSIDARP Report 428
- Activity Log Report 429
- TSIDBRP Reports 430
- Cross-Reference 431
- Report Example 431
- A-10 User Reference 432
- TSIDDIS Report 433
- TSIDJAC Report 435
- Job Time Activity 436
- TSIDLVT Report 437
- TSIDMNT Reports 439
- A-18 User Reference 440
- TSIDOFD Report 441
- TSIDOFL Report 442
- TSIDONL Report 443
- TSIDPRV Report 444
- TSIDSDS Report 445
- TSIDTAC Report 446
- Date Time Activity 447
- TSIDUTL Reports 448
- TSIDUTL ALL,DSN 450
- A-30 User Reference 452
- Display PULL 453
- Display Vault Report 454
- Display Scratch Report 455
- A-34 User Reference 456
- TSIDVLT Reports 457
- Vault Movement 458
© 2020, manymanuals.pl. Wszelkie prawa zastrzeżone. | 0.076 s |
Manymanuals.com
Manymanuals.de
Manymanuals.fr
Manymanuals.it
Manymanuals.pl
Manymanuals.cz
Manymanuals.es
Manymanuals-pt.com
Komentarze do niniejszej Instrukcji