|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7746 (0x1e42)
Notes: pts_type(SC)
Names: »DEDICO.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEDICO.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEDICO.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEDICO.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEDICO.SC«
IDENT DEDICOMM REL 1.0 79-01-16/AST * ************************************************************* * * SUBROUTINE DEDISC * * CALLING SEQUENCE: PERF DEDISC,FC * * FC ACTION * * 01 ENTER JOBDEFINITION. THE CURRENT JOBDEFINITION, * INDICATED BY ITS NAME IN 'JOBNAME', IS WRITTEN * AS LAST RECORD IN JOBDEFINITION-CHAIN. NO CHECKS * ARE DONE ON JOBDEFINITION.G * * 02 GET JOBDEFINITION. THE JOBDEFINITION, INDICATED * BY ITS NAME IN 'DEINPUT' IS GIVEN TO THE CALLING * TASK. AN INDEX TO THE BUFFER IN POOL IS RETURNED * IN PJOBCUR. * * 03 DUMMY-ENTRY * * 04 SEARCH JOBDEFINITION. A SEARCH IS DONE, WHETHER * THE INDICATED JOBDEFINITION EXISTS IN SYSTEM. * * 05 DELETE JOBDEFINITION. THE JOBDEFINITION, INDICATED * BY ITS NAME IN 'JOBNAME' IS REMOVED FROM JOBCHAIN. * * 06 OPEN NEW BATCH. IF THE CURRENT JOB EXISTS IN * JOBCHAIN ON USERFILE, A NEW ENTRY IA ADDED TO ITS * BATCHCHAIN. ELSE, A JOBCHAIN WITH THE CURRENT JOB * AND A BATCHCHAIN WITH THE CURRENT BATCH ARE CREATED. * THE FIRST DATARECORD AND AN ACCUMULATORRECORD ARE * RESERVED FROM FREESPACE-TABLE AND INITIATED ON DISC. * A POOL IS RESERVED FOR ACCUMULATORS IN CORE AND * ITS INDEX WILL BE FOUND IN 'PINACC'. THE RECORDNUM- * BER OF ACCUMULATORS IS SAVED IN POS 9-10 OF ITS * RPOOL. 'CURSEC' IS LOADED WITH RECORDNUMBER OF THE * FIRST DATARECORD. * * 07 OPEN EXISTING BATCH. A BATCH, ALREADY EXISTING IN * BATCHCHAIN, IS OPENED. 1ST DATARECORD AND ACCUMU- * LATORS ARE READ INTO MEMORY. A CHECK IS DONE, WHE- * THER THE SAME BATCH IS USED BY AN OTHER TASK. OUTPUT * AS FC 06. * * 08 CLOSE BATCH. THE LAST DATARECORD OF THE CUR * RENT BATCH IS WRITTEN TO DISC. * * 09 ENTER FORMAT. THE CURRENT FORMAT, INDICATED BY * A POINTER TO THE BUFFERPOOL IN 'PINDFR' IS WRITTEN TO DISC * * 10 GET FORMAT. THE FORMAT, INDICATED BY ITS NAME * IN 'FORMAT' IS GIVEN TO THE CALLING TASK. * IF DATAITEM FRMTPNTR NOT ZERO, A POINTER TO FIRST RECORD * OF WANTED FORMAT IS EXSPECTED THERE. ELSE, THE SEARCH IS * DONE VIA FORMATCHAIN. AFTER EXECUTION, FRMTPNTR IS LOA- * DED WITH A POINTER TO THE FIRST RECORD OF THE FORMAT. IF * IF NO FORMAT-ADRESS IN FILE IS KNOWN, FRMTPNTR SHOULD BE * SET TO ZERO BEFORE DEDISC IS CALLED. * * 11 DUMMY-ENTRY * * 12 SEARCH FORMAT. A SEARCH IS MADE, IF INDI- * CATED FORMAT EXISTS IN SYSTEM. RETURNED * INFORMATION AS FC 10. * * 13 DELETE FORMAT. THE FORMAT, INDICATED BY ITS * NAME IN 'DEINPUT' IS REMOVED FROM FORMATCHAIN. * * 14 WRITE CURRENT DATA-SECTOR * * 15 GET NEXT DATA-SECTOR * * 16 GET PREVIOUS DATA-SECTOR * * 17 DELETE CURRENT DATA-SECTOR * * 18 WRITE ACCUMULATOR-RECORD * * 19 GET SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE * READ INTO MEMORY. * * 20 ENTER SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE * WRITTEN TO DISC. * * 21 GET NEXT JOBNAME. THE NAME OF NEXT JOBDEFINITION IN CHAIN * IS OUTPUT TO DATA-ITEM 'JOBNAME'. * * 22 GET PREVIOUS JOBNAME. * * 23 WRITE SECTOR (CORR) * * 24 GET TABLE. INPUT:TABLE-NAME IN 'TABLE',ELEMENTNUMBER IN 'ELMNO * OUTPUT: PINDTB=POOLINDEX TO BUFFER-ELEMENTS IN RPOOL AND BPOOL. * THE DATARECORD, CONTAINING THE WANTED ELEMENT OF THE WANTED TABLE * WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. * * * 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' IS * DELETED ON DISC. * * 26 ENTER TABLE. INPUT: TABLENAME IN 'TABLE', ELEMENT-NUMBER IN * 'ELMNO', INDEX TO POOL IN 'PINDTB. THE CONTENTS OF BPOOL(PINDTB) * AND RPOOL(PINDTB) ARE WRITTEN TO DISC. * * 27 DELETE BATCH. DATA-ITEM BATCH INDICATES THE BATCH TO * BE DELETED. ALL RECORDS BELONGING TO THIS BATCH ARE * RETURNED TO FREESPACE-TABLE. * * 28 GET NO OF FREE RECORDS ON DISC(S). AFTER EXECUTION, * THE BINARY DATA-ITEM DEBINW1 IS LOADED WITH NUMBER OF * FREE RECORDS IN SYSTEM-FILE AND DEBINW2 WITH NUMBER * OF FREE RECORDS IN USERFILE OF RUNNING TASK. * * 29 GET NEXT JOBDEFINITION. THE NEXT JOBDEFINITION * IN CHAIN IS PASSED TO THE CALLING TASK. IF 'JOB- * NAME' IS EMPTY, THE FIRST JOBDEFINITION IN CHAIN * IS PASSED. * * 30 GET PREVIOUS JOBDEFINITION. THE PREVIOUS JOB- * DEFINITION IN CHAIN IS PASSED TO THE CALLING * TASK. IF 'JOBNAME' IS EMPTY, THE FIRST JOBDEFI- * NITION IN CHAIN IS PASSED. * * 31 GET NEXT FORMAT. THE NEXT FORMAT IN FORMATCHAIN * IS PASSED TO THE CALLING TASK. IF 'FORMAT' IS * EMPTY, THE FIRST FORMAT IN CHAIN IS PASSED. * * 32 GET PREVIOUS FORMAT. THE PREVIOUS FORMAT IN CHAIN * IS PASSED TO CALLING TASK. IF 'FORMAT' IS EMPTY, * THE FIRST FORMAT IN CHAIN IS PASSED. * * 33 GET CURRENT SECTOR * * 34 GET NEXT BATCHNAME. THE NAME OF NEXT BATCH ON USERFILE IS * OUTPUT TO DATA-ITEM 'BATCH'. * * 35 GET PREVIOUS BATCHNAME. * * RETURNCODE IN DEBINW4: 0 = OK * -1 = WARNING. 95 PROC OF FILESPACE USED. * 9 = NOT IN SYSTEM * 10 = NO DISC SPACE * 11 = USED * 12 = LOCKED * 13 = NO WORKSPACE IN CORE * * CONDITION-REGISTER IS SET TO 2 (=ERROR), IF DEBINW4 NOT ZERO * SET TO 1 (=EOF), IF DEBINW4 IS LESS THH AN 0 * SET TO 0 (=OK), IF DEBINW4 IS ZERO. * * USED WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5, * SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B * DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF * * ***************************************************** * DDIV PDIV END