|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3328 (0xd00)
Notes: MEMBER_P, Member_Text
Names: »RVAA «
└─⟦e184f8357⟧ Bits:30009822 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 7 Created 19950301 Level 01 Seq 001 of 011
└─⟦7c2aa5ab2⟧
└─⟦this⟧ ».RVAA «
* THIS IS THE UNIVERSAL OLPD PROC FOR FILE CHANGE. // LOCAL AREA-USER * SPECIFY USER LDA. // IF DATAF1-?L'157,8'? IF DATAF1-?L'165,8'? IF DATAF1-?L'173,8'? GOTO BYSTAR // IF ?L'149,1'?/T GOTO LOADT * TAPE PD REQUESTED. // IF ?L'149,1'?/C GOTO LOADC * COMM PD REQUESTED. // IF ?L'149,1'?/L GOTO LOADL * LAN PD REQUESTED. // IF ?L'149,1'?/D GOTO LOADD * DISK PD REQUESTED. // GOTO ERROR * INVALID REQUEST. * // TAG LOADC * LOAD COMM PD. // LOAD $CNKAN,#LIBRARY * CHECK IF SYSTEM IS KANJI. // RUN // LOCAL AREA-SYSTEM * CHECK FOR KANJI // IF ?L'230,1'?=1 EVALUATE P4=12 * KANJI-P? // ELSE IF ?L'67,1'?=1 EVALUATE P4=15 * KANJI? // ELSE EVALUATE P4=11 * STANDARD? // LOCAL AREA-USER * SPECIFY USER LDA. // TAG PROMPTC #ERR 2179,03,SYS,'?4?' * PROMPT OLPD DISKETTE // IF DATAI1-PD3.COM2 IF VOLID-PPOLPD GOTO HEREC * CHECK FOR CORRECT DISKETTE // IF DATAI1-PD3.COM2 IF VOLID-BKOLPD GOTO LOADCM * CHECK FOR BACKUP DISKETTE #ERR 8516,13,SYS * PROMPT WRONG DISKETTE. // GOTO PROMPTC // TAG HEREC * LOAD FROM SSP DISKETTE BCPDILOD // GOTO BYSTAR * GO TO FILES LOADED // TAG LOADCM * LOAD FROM BACKUP DISKETTE // LOADCM // GOTO BYSTAR * // TAG LOADT * LOAD TAPE PD // IFF PROC-'TPPDILOD,#LIBRARY' GOTO NOSSP * TEST FOR FEATURE SSP #ERR 2178,03,SYS * PROMPT TAPE SUPPORT DISKETTE // IF DATAI1-PD2.TAPE IF VOLID-PPTAPE GOTO HERET * CHECK FOR CORRECT DISKETTE // IF DATAI1-PD2.TAP2 IF VOLID-BKOLPD GOTO LOADTP * CHECK FOR BACKUP DISKETTE #ERR 8516,13,SYS * PROMPT WRONG DISKETTE. // GOTO LOADT // TAG HERET * LOAD FROM SSP FEA. DSKT. TPPDILOD // GOTO BYSTAR * GO TO PD LOADED // TAG LOADTP * LOAD FROM BACKUP DISKETTE // LOADTP // GOTO BYSTAR * // TAG LOADL * LOAD LAN PD // IFF PROC-'LNPDILOD,#LIBRARY' GOTO NOSSP * TEST FOR FEATURE SSP #ERR 9200,03,SYS * PROMPT LAN SUPPORT DISKETTE // IF DATAI1-PD4.LAN2 IF VOLID-PPLAN GOTO HEREL * CHECK FOR CORRECT DISKETTE // IF DATAI1-PD4.LAN2 IF VOLID-BKOLPD GOTO LOADLN * CHECK FOR BACKUP DISKETTE #ERR 8516,13,SYS * PROMPT WRONG DISKETTE. // GOTO LOADL // TAG HEREL * LOAD FROM SSP FEA. DSKT. LNPDILOD // GOTO BYSTAR * GO TO PD LOADED // TAG LOADLN * LOAD FROM BACKUP DISKETTE // LOADLN // GOTO BYSTAR * // TAG LOADD * LOAD DISK PD // IFF PROC-'DNLPILOD,#LIBRARY' GOTO NOSSP * TEST FOR FEATURE SSP #ERR 9201,03,SYS * PROMPT DISK SUPPORT DISKETTE // IF DATAI1-PD5.DIS2 IF VOLID-PPDIS GOTO HERED * CHECK FOR CORRECT DISKETTE // IF DATAI1-PD5.DIS2 IF VOLID-BKOLPD GOTO LOADDS * CHECK FOR BACKUP DISKETTE #ERR 8516,13,SYS * PROMPT WRONG DISKETTE. // GOTO LOADD // TAG HERED * LOAD FROM SSP FEA. DSKT. DNLPILOD // GOTO BYSTAR * GO TO PD LOADED // TAG LOADDS * LOAD FROM BACKUP DISKETTE // LOADDS // GOTO BYSTAR * // TAG NOSSP * NO FEATURE SSP FOR DEVICE #ERR 9202,3,SYS * POST FEAT. SSP MSG * // TAG ERROR // * '*** ERROR, THIS PROCEDURE, "RVAA" HAS AN INVALID LDA VALUE OF ?L'149,8'? ***' // PAUSE // CANCEL * // TAG BYSTAR * PD LOADED, DEFINE PD FILES. // LOCAL OFFSET-43,DATA-'?L'165,8'?' * SPECIFY PD FILE NAMES. // LOCAL OFFSET-62,DATA-'?L'157,8'?' // LOCAL OFFSET-70,DATA-'?L'173,8'?' // RESET PSP * RESTART PD SCREEN DRIVER.