* %GOTO LSDBSL ; /* 01000000 MACRO 02000000 IKJLSD 03000000 LSD DSECT 04000000 *********************************************************************** 05000000 * THE (STORAGE) LIST SOURCE DESCRIPTOR (LSD) IS POINTED TO BY THE * 06000000 * STPB. IT IS SET UP BY THE INVOKER OF STACK TO DESCRIBE THE * 07000000 * IN STORAGE LIST. IT WILL BE FREED BY STACK WHEN THE LIST HAS * 08000000 * BEEN PROCESSED OR WHEN A 'DELETE' FUNCTION HAS BEEN REQUESTED * 09000000 *********************************************************************** 10000000 SPACE 11000000 LSDADATA DS A PTR TO IN STORAGE LIST 12000000 LSDRCLEN DS H REC LENGTH -0 IF VARIABLE LEN RECFM 13000000 LSDTOTLN DS H TOTAL LEN OF IN STOR LIST(AMT OF CORE TO FREE) 14000000 LSDANEXT DS A PTR TO NEXT REC O BE PROCESSED-INITIALIZED TO 15000000 * FIRST REC BY INVOKER-UPDATED BY GETLINE/PUTGET 16000000 LSDEXEC DS CL4 ADDRESS OF THE EXEC COMMAND DATA BLOCK 17000003 **/ 18000000 MEND 19000000 * %LSDBSL : ; 20000000 * DECLARE 21000000 * 1 LSD BASED(LSDPTR), 22000000 * /* *************************************************************** */ 23000000 * /* THE (STORAGE) LIST SOURCE DESCRIPTOR (LSD) IS POINTED TO BY THE */ 24000000 * /* STPB. IT IS SET UP BY THE INVOKER OF STACK TO DESCRIBE THE */ 25000000 * /* IN STORAGE LIST. IT WILL BE FREED BY STACK WHEN THE LIST HAS */ 26000000 * /* BEEN PROCESSED OR WHEN A 'DELETE' FUNCTION HAS BEEN REQUESTED */ 27000003 * /* *************************************************************** */ 28000000 * 29000000 * 2 LSDADATA PTR(31), /* PTR TO IN STORAGE LIST */ 39000000 * 2 LSDRCLEN FIXED(15), /* REC LENGTH -0 IF VARIABLE 40000000 * LEN RECFM */ 41000000 * 2 LSDTOTLN FIXED(15), /* TOTAL LEN OF IN STOR 42000000 * LIST(AMT OF CORE TO FREE) */ 43000000 * 2 LSDANEXT PTR(31), /* PTR TO NEXT REC O BE 44000000 * PROCESSED-INITIALIZED TO 45000000 * FIRST REC BY INVOKER-UPDATED 46000000 * BY GETLINE/PUTGET */ 47000000 * 2 LSDEXEC PTR(31); /* ADDRESS OF THE EXEC COMMAND 48000003 * DATA BLOCK */ 49000003 * 50000000